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ABSTRACT 

TC02 DECtape Random Exerciser is a program for use with the TC02 DECtape 
control and from 1 to 8 TU55 DECtape transports. DECtape functions are 
exercised by the random determination of function, direction, transport number, 
number of blocks and data pattern generation. Search, Read Data and Write 
Data are exercised in both Norma! and Continuous modes; Read All is exercised 
in the Continuous mode; Move is exercised. During the waiting period while 
DECtape funcriont ere being performed, small instruction test programs are being 
executed by the certra! processor to test the proper execution of the Data Break 
facility. 



2. REQUIREMENTS 

2.1 Equipment 

Standard PDP-15 computer with a TC02 DECtape control and at least one TU55 
DECtape transport (up to eight may be tested), and one standard PDP-9 Format 
DECtape (1 100 3 Blocks, 400g words each) for each transport. 

2.2 Storage 
Program - Most of memory from 00000 to 04000. 

2.2.2 J MS Test Arao - 06000 ?o 0A20! . 

2.2.3 Date Buffers - 0400 to 5 j '■ 7 . 

2.3 Preliminary Programs 
TC02 Sasic Exerciser 

3. LOADING PROCEDURE 



2.2.1 



3.1 Method 

The program is loaded from paper rape using the standard binary tape loading 
procedure. 

a. Place tape in the reader. 

b. Set the ADDRESS switches to 17700. 

c. Set BANK MODE switch to 1 . 

d. Depress I/O RESET. 

e. Depress KEY READ IN. 

f . Program will be loaded into memory. 

4. STARTING PROCEDURE 



4.1 Control Switch Settings 

The following is a table of Accumulator Switch settings and their action on the 
program . 



Actic 



AC Switch 


Set/ 





1 







1 


1 







2 


1 







3 


1 







10 


1 







n 


1 







12 


1 







13 


. 







14 


1 







15 


, 



HALT ON ERROR 

DON'T HALT ON ERROR 

DON'T PRINT ERRORS 

PRINT ERRORS 

PRINT ONLY 4 DATA ERRORS 

PRINT ALL DATA ERRORS 

HIT END ZONE TWICE FOR 0000 or 1077 

HIT END ZONE ONCE FOR 0000 or W77 

EXERCISE TRANSPORT 8 

EXERCISE TRANSPORT 1 

EXERCISE TRANSPORT 2 

EXERCISE TRANSPORT 3 

EXERCISE TRANSPORT 4 

EXERCISE TRANSPORT 5 



4.1 



Control Switch Settings Cont. 



4.2 



4.3 



AC Switch 


Set As 


16 

17 



1 


1 




Starting Address 





Action 



EXERCISE TRANSPORT 6 
EXERCISE TRANSPORT 7 



The program's starting address is 00100. 

Operator Action 

a . Load program per 3.1. 

b. Put each TU55 to be tested ON LINE with WRITE ENABLED and a standard 
PDP-9 DECtape on it. 

c. Set the selector dial(s) to the appropriate number(s) . 

d . Set AC switches per 4. 1 (Normal setting is OOOXXX) . 
e . Depress I/O RESET . 

f , Depress START 

OPERATING PROCEDURE 



5.1 Operational Switch Settings 

See 4.1 . 



5.2 



Subroutine Abstract 



None 



5.3 



Operator Action 



"Bad" DECtape transports may be "deselected" at any time by setting to rhe AC 
Switch for that transport. 



ERRORS 



All DECtape malfunctions detected by that program result in an error typeout 
(if ACS 1 is 0) and an error halt (if ACS is 1). The halt will not occur until 
all errors pertaining to the block and operation have been typed. 

The first three lines of every typeout indicate the DECtape drive, operation, 
direction, and mode, and the block in question. 



6.1 



Error Halts 



6.1.1 Processor Test Error Halts 

Processor test errors cause error halts only. Listed below is the location of these 
halts and the condition causing each. Consult the program listing for further 
information. These errors are non-recoverable, the program must be restarted 
at location 00100. 



Address 

02057 

02063 
02075 
02102 
02113 
02120 
02130 
02170 



Test and Cause 



ISZ Test 
ISZ Test 
ROTATE 1 Test 
ROTATE 1 Test 
ROTATE 2 Test 
ROTATE 2 Test 
SAD TEST 
JMS TEST 



Location 02201 should " 
Location 02200 should = 1 
Link should = 1 
Data Failure 
Link should = 
Data failure 
Sad Failure 
JMS Failure 



6 . 1 .2 DECtape Test Error Halts 

6.1.2.1 Selection Error 

If no transports are selected by ACS 10 to 17, the computer will halt at 
location 00107 to ailow the operator to set the ACS's and depress 
CONTINUE. 

6.1.2.2 Read Data Error 

A "Read Data" error will cause an error halt at location 00327. To recover, 
depress "CONTINUE". 

6.1.2.3 Write Data Error 

A "Write Data" error will cause an error halt at location 01064. To recover, 
depress "CONTINUE". 

6.1 .2.4 Read All Error 



A "Read AH" status error will cause an error hdlt at location 01677. To recover, 
depress "CONTINUE". "Read All" data errors will halt per 6. 1 .2.2. 



6.1 .2.5 Move Error 



A "M'.>vs' ! prr.r will cause an error halt at location 02351. To recover, depress 
CONTINUE". 



6.1 .2.6 Search Error 



A "Search" error will cause an error halt at location 02627. To recover, depress 
"CONTINUE". 

6.2 Error Recovery (Non- Processor) 

After an error typeout the processor will halt. To recover, depress "CONTINUE" . 
For all errors, the program will attempt to repeat the same or a similar operation. 
If an error occurs a second time for the same operation, the typeout and halt 
will occur again. If "CONTINUE" is depressed this time, the drive in error 
will rewind and the random selections will commence at block again. If, on 
the other hand, no error occurs, the program will continue normal operation. 



6.2 Error Recovery (Non-Processor) Cont. 

For read errors ("Read Data" and "Read All"), the direction of the second 
read operation to the original error's direction. A second error will cause another 
typeout and halt. Depressing "CONTINUE" will cause the drive to rewind to 
end zone. If no error occurs on the second pass, the block will be read a third 
time in the original direction. Any error will cause a typeout and halt. The 
end result of repeated errors is rewind to end zone and random selection starting 
with block to prevent the same read sequence. 



6.3 Error Typeouts 

6.3.1 Search Errors 

"Search" error typeouts contain the following information: 
Drive Number 
Search Direction and Mode 
Block Wanted and Direction 
Last Number Put in Memory by TC02 
Last Block Number Found if More than Two Were Found 
Number of Blocks Found Since Last Startup or Turn-Around 
DECtape Status B 

Example: 

DRIVE 4 

SEARCH FORWARD 

000123 BLOCK WANTED FORWARD 

000070 BLOCK FOUND 

000073 LAST BLOCK 

000004 BLOCKS READ 

000100 STATUS B 



6.1.2 DECtape Test Error Halts 

6.1.2.1 Selection Error 

If no transports are selected by ACS 10 to 17, the computer will halt at 
location 00107 to allow the operator to set the ACS's and depress 
CONTINUE. 

6.1.2.2 Read Data Error 

A "Read Data" error will cause an error halt at location 00327. To recover, 
depress "CONTINUE". 

6 . 1 .2 .3 Write Data Error 

A "Write Data" error will cause an error halt at location 01064. To recover, 
depress "CONTINUE" . 

6.1.2.4 Read All Error 



A "Read All" status error will cause an error halt at location 01677. To recover, 
depress "CONTINUE". "Read All" data errors will halt per 6.1 .2.2. 



6.1 .2.5 Move Error 



A "Move" error will cause an error halt at location 02351 . To recover, depress 
"CONTINUE" . 



6.1.2.6 Search Error 



A "Search" error will cause an error halt at location 02627. To recover, depress 
"CONTINUE". 

6.2 Error Recovery (Non-Processor) 

After an error typeout the processor will halt. To recover, depress "CONTINUE" . 
For all errors, the program will attempt to repeat the same or a similar operation . 
If an error occurs a second time for the same operation, the typeout and halt 
will occur again. If "CONTINUE" is depressed this time, the drive in error 
will rewind and the random selections will commence at block again. If, on 
the other hand, no error occurs, the program will continue normal operation. 



6.2 Error Recovery (Non-Processor) Cont. 

For read errors ("Read Data" and "Read All"), the direction of the second 
read operation to the original error's direction. A second error will cause another 
typeout and halt. Depressing "CONTINUE" will cause the drive to rewind to 
end zone. If no error occurs on the second pass, the block will be read a third 
time in the original direction. Any error will cause a typeout and halt. The 
end result of repeated errors is rewind to end zone and random selection starting 
with block to prevent the same read sequence. 



6.3 Error Typeouts 

6.3.1 Search Errors 

"Search" error typeouts contain the following information: 
Drive Number 
Search Direction and Mode 
Block Wanted and Direction 
Last Number Put in Memory by TC02 
Last Block Number Found if More than Two Were Found 
Number of Blocks Found Since Last Startup or Turn-Around 
DECtape Status B 

Example: 

DRIVE 4 

SEARCH FORWARD 

000123 BLOCK WANTED FORWARD 

000070 BLOCK FOUND 

000073 LAST BLOCK 

000004 BLOCKS READ 

000100 STATUS B 



6.3.1 Search Errors Cont. 

The above example shows that the control was operating with Drive "A, search- 
ing in the forward direction for block #123. It encountered block #70 after 
block #73 (should have been #74). Up to this time it had read 4 blocks. DEC- 
tape status was normal . The block sequence was not consecutive, no doubt 
due to the loss of bit 15 of the block number. 



6.3.2 Write Data Errors 



"Write Data" error typeouts contain the following information: 
Drive Number 
Direction and Mode 
DECtape Status B 
Contents of Word Count Register (Location 00030) . 

Example: 



DRIVE 1 




WRITE 


DATA BACKWARD CONTINUOUS 


000765 


BLOCK 


600000 


STATUS B 


777634 


WC 



The above example shows that a mark track error occurred while writing data 
backwards in the continuous mode in block #765. 



6.3.3 Read Data Errors 



"Read Data" error typeouts are of two types - status and data compare. 



6.3.3.1 Status Error Typeouts 

These typeouts contain the following information: 
Drive Number 
Direction and Mode 
Block Being Read 
DEC tape Status B 
Contents of WC if not (Note: No data comparison if WC is not 0) . 

Example: 



DRIVE 7 




READ 


DATA BACKWARD CONTINUOUS 


001065 


BLOCK 


440000 


STATUS B 


777400 


WC 



The above example shows that an attempt to read data from block *1065 on 
drive "v in the backward direction in continuous mode caused a select error. 
Since WC is not 0, no data comparison was made. 



6.3.3.2 Data Compare Errors 



These typeouts contain the following information: 
Drive Number 
Direction 
Mode 
Block Read 



6.3.3.2 Data Compare Errors Cont . 
Correct Data 
Erroneous Data 
Address of Incorrect Data 

Example: 



DRIVE 5 




READ 


DATA FORWARD 


DATA 


ERROR 


001074 


BLOCK 


400000 


COR 


322667 


INC 


010374 


ADDRS OF INC 


000027 


COR 


067365 


INC 


010375 


ADDRS OF INC 



The above example shows that an attempt to read data in the forward direction 
from block *1074 resulted in data errors. In the first printout: the correct 
data was 400000, the data from tape was 322667, the incorrect data is in 
location 010374. 



6.3.4 Read All Errors 



"Read All" error typeouts are of three types - status, data compare, Checksum. 



6.3.4.1 Status Error Typeouts 

Same format as "Read Data" - see 6.3.3.1 . 



6.3.4.2 Data Compare Error Typeouts 

Same format as "Read Data" - 6.3.3.2. 

6.3.4.3 Checksum Error Typeouts 

These typeouts contain the following information: 
Drive Number 

Read All Direction and Mode 
Block Number 
Reverse Checksum for Tape 

Data Checksum Calculated from 6-bit XOR of Data by the Program 
LPB Calculated by Program (6-bit XOR of RC, DC, C above). 



Example: 



DRIVE 8 

READ ALL BACKWARD CONTINUOUS 

000000 BLOCK 

CKSUM ERROR 

000033 REV CHECKSUM 

000022 DATA CHECKSUM CALCULATED 

670000 CHECKSUM 

000076 CALCULATED LPB 



The above example shows a checksum error. The 6-bit complement XOR of 
the Reverse Checksum, Calculated Data Checksum and Checksum should be 
000077. However, it calculated to 000076. 



6.3.5 Program Interrupt Errors 

The program detects 3 classes of program interrupt errors. After the PI 
typeout the program forces an operation typeout so that the function being per- 
formed may be determined. 

6.3.5.1 Program Interrupt and No DECtape Flog or Error Flag Skip 
The following typeout will occur: 

PI NO DECTAPE SKIP 

6.3.5.2 No Progrcm Interrupt or DECtape Flag or Error Flag Skip after Timeout 

If no PI or DECtape hardware flags occur after 5 seconds for all functions 
except "MOVE" (which allows 45 seconds) the following typeout will occur: 

NO PI NO DECTAPE SKIP 

6.3.5.3 No Program Interrupt but DECtape Flog or Error Flag Skip after Timeout 

If no PI occurs, but hardware flags do occur after timeout (5 or 45 seconds) the 
following typeout will occur: 

NO PI DECTAPE SKIP 

7. RESTRICTIONS 

7.1 Starting Restrictions 
None 

7.2 Operating Restrictions 

Do not "deselect" a transport merely to change a reel of DECtape and then 
reselect it. If a reel of DECtape must be changed, Stop the program, change 
the reel of tape, then depress I/O RESET then START with 00100 in the 
Address Switches. 
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MISCELLANEOUS 



8.1 Execution Time 



Program does not stop unless an error occurs. 

8.2 Data Format 

The data blocks written by the Random Exerciser are formatted to be bi- 
directional . Whether written forward or backward, they may be read in 
either direction on the TC02 with the resultant data looking the same. The 
first four words of the block contain pertinent information about the block. 
The first two words of each block are formatted as follows: 

WORD 1 



LOWEST 
BLOCK NUMBER 



Control bit to indicate 
direction of write data 

- forward 

1 - backward 



WORD 2 



WORD 1+ 

NUMBER OF BLOCKS 



Complement of WORD 1 BIT 

I - forward 
- backward 



WORD 1 indicates the lowest numbered block in the series with bit indicating 
the wirtten direction of the series of blocks. 

WORD 2 is 1 greater than the highest numbered block in the series, bit 
in WORD 2 is the complement of bit in WORD 1 . 
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8.2 



Data Format Cont. 



Ignoring bits of the two words: 

WORD 2 - WORD 1 = number of blocks in series. 

WORD 3 and WORD 4 of the block are random numbers used to generate the 
rest of the data. WORD 5 of the block is WORD 3 rotated right one position 
using an 18-bit rotate. 

WORD 6 is WORD 4 rotated right one position also using an 18-bit rotate. 
This process is repeated until WORD 128 is WORD 126 rotated right. WORD 
129 is the complement obverse of WORD 128. WORD 130 is the complement 
obverse of WORD 127, etc, . until the last word of the block is complement 
obverse of the first word of the block. 



WORD 1 


400617 


WORD 2 


000626 


WORD 3 


732654 


WORD 4 


201356 


WORD 5 


355326 


WORD 6 


100567 


WORD 253 


124675 


WORD 254 


321540 


WORD 255 


151777 


WORD 256 


061773 



Block 617 to 

625 inclusive were 

written backwards using 

these two words for data pattern 

WORD 3 Right One 

WORD 4 Right One, etc. 

Complement obverse of WORD 4 
Complement obverse of WORD 3 
Complement obverse of WORD 2 
Complement obverse of WORD 1 



PROGRAM DESCRIPTION 



9.1 



Discussion 



TC02 DECTAPE RANDOM EXERCISER will exercise a TC02 DECtape control and 
any configuration of from 1 to 8 TU55 DECtape Drives. Drive, direction of 
operation, number of blocks, and data patterns are by random selection. First 
the program randomly selects a drive, then a number between 1 and 32 
(decimal) for the number of blocks, then the direction. There is one possibility 
in four that the direction will be backward. The number of blocks is added to 
or subtracted from the last block position of the drive selected. If the block 
generated has not been written, a write operation is initiated. If the last block 
table indicates that the block selected has already been written, a read operation 
is initiated. If READ is selected, the program then generates a random number 
between and 7. If the number is 0, the block is read in "Read All Continuous" 
mode; if 4, "Read Data Normal" mode; if any other number, "Read Data 
Continuous" mode and two blocks are read. If WRITE is selected and the 
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9.1 Discussion Cont. 



number of blocks is a multiple of 3 (3, 6, 9, 12, etc.), the blocks are written 
in continuous mode. Otherwise, the blocks are written in normal mode. 
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page: 



RaNDE* 



DTRF15 





004000 




004400 




000030 




000031 


0010? 




0100 


707704 


00101 


750004 


00102 


503411 


00103 


740200 


00104 


600111 


00105 


2035*0 


00106 


102633 


00107 


740040 


00110 


600100 


00111 


043453 


00112 


750001 


00113 


043447 


00114 


707554 


00115 


102207 


00116 


163451 


0117 


102244 


00120 


600116 


055121 


203401 


00122 


043452 


03123 


750004 


00124 


503411 


00125 


741200 


00126 


600105 


00127 


043453 


00*30 


10055 1 


00131 


750001 


00132 


043457 


00133 


203436 


00134 


343452 


00135 


751200 


00136 


600231 


00137 


203436 


00140 


740001 


00141 


343401 


00142 


043452 


00143 


750001 


00144 


043474 


001 45 


10051 6 


001 4 & 


503424 


0014 7 


740001 


00150 


043455 


00151 


100527 


00152 


503425 


00153 


751200 



LEM 

/READ ACS AND 



.TITLE 0TRE15 

. ABS 

/TC02 RANDOM EXERCISER - POP-15 

RANBFR=4000 
8UFFRS=RANBFR+400 
WC = 30 
CA = 31 

.LOC 100 

RANDEX 

LAS 

AND RUBOUT 

S?A /SEE IF ANY TRANSPORTS 

JMP +5 /WERE SPECIFIED 

LAC (MESS1 /CONTROL COMES HERE 

JMS MSPRNT /IF NONE 

XX 

JMP RANDEX 

DAC MSBITS 

CLA'CMA 

DAC FRSWAT 

707554 /CLEAR "B H 

JMS REPOSI 



/PUT ALL DRIVES IN END ZONE 
/CLEAR NUMBER OF BLOCKS 
/CHECK TO SEE IF ALL WERE CLEAREO 
THEY WEREN'T 



/THIS SEQUENCE 
/ALLOWS THE OPERATOR 



DZM» LSTBLK 
JMS CHNGDR 
JMP .-2 /NO 
LAC ONE 
DAC LSTDRV 
RDSWCH LAS 

AND RUBOUT 

SNA /TO DESELECT 
JMP RAN0EX*5 /" BAD TRANSPORTS" 

DAC MSBITS /VIA THE AC SWITCHES 

/Random selection of operations 
mofpro jms ransel /select a orive 

CLAiCMA 

nAC PASFLG 

LAC CDrIVE /CHECK T° SEE IF 

TAD LSTDRV /THIS DRIVE WAS THE 

SNAiCLA /LAST ONE SELECTED 

JMP SAMDRV /YES, IT WAS! 

LAC CDRIVE 

CMA 

TAD ONE 

DAC LSTDRV 

CLA!CMA 

OAC RSQFLG 
/SELECT NUMBFR OF BLOCKS FOR OPERATION (1-32) 
MOFPRl J"S RAND1 /GET A RANDOM NUMBER 

AND TERSEV 

CMA /MAKE -1 TO -32 (DEC) 

OAC NUMBLK 
/SELECT DIRECTION TO GO 

JMS RAND2 /GET ANOTHER RANDOM 

AND THREE 

SNA!CLA 
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2 


RANOEX 


00154 


740001 


00155 


043446 


001 56 


223451 


00157 


755200 


00160 


600721 


001 61 


203446 


00162 


750200 


00163 


744002 


00164 


203455 


00165 


741400 


00166 


600171 


00167 


740001 


00170 


343401 


00171 


363467 


00172 


043472 


00173 


741100 


00174 


143472 


00175 


203472 


00176 


740001 


00177 


363451 


00200 


741100 


00201 


600721 


00202 


100540 


00203 


503413 


00204 


741200 


00205 


601431 


00206 


503425 


00207 


750200 


00210 


601221 


00211 


100253 


00212 


600272 


00213 


203432 


00214 


707544 


00215 


203472 


00216 


063467 


00217 


203446 


00220 


063445 


00221 


100400 


00222 


777400 


00223 


100626 


00224 


004,000 


00225 


004400 


00226 


443442 


00227 


600325 


0023 


600123 


00231 


100516 


00232 


741100 


00233 


600146 


00234 


443474 



DTRE15 



/H*S DRIVE BEEN WRITTEN ON? 
/NO, WRITE 



NUMBER 



CMA /SET BACKWARDS 

DAC OIRFLG /DIRECTION FLAG 

LAC* LSTBLK 

SNA'ClAIClL 

JMP WRlTEl 

LAC OIRFLG 
/GENERATE BLOCK SELECT POSITION + OR 

SZAICLA 

CLLJCML 

LAC NUMBLK 

SZL 

JMP .+3 

CMA 

TAD ONE 

TAD» POSITNI 

DAC RECORD 

SPA /- RECORD? 

DZM RECORD /MAKE = 

/HAS BLOCK SELECTED BEEN WRITTEN 
/IF NOT, WRITE OPERATION SELECTED 

LAC RECORD 

CMA 

TAD» LSTBLK 

SPA /HAS BLOCK BEEN WRITTEN? 

JMP WRlTEl /NO 

JMS RAND3 

AND SEVEN 

SNA 

JMP RALLTS 

AND THREE 

SZAICLA 

JMP RDCMOD 
RDTAB JMS RDDATA 

JMP REREAD 
/BLOCK HAS BEEN READ WITHOUT PARITY ERROR 

LAC TYTHOU 

707544 /STOP TAPE 

LAC RECORD 

DAC» POSITN /NEW POSITION 

LAC OIRFLG 

OAC* DIRECT /DIRECTION READ 

/MOVE FIRST FOUR WORDS TO REGENERATE DATA PaTTeRN 

JMS PREGEN /GENERATE DATa PATTERN 

LAW -400 

JMS CODATA /COMPARE 400 WORDS 

RANBFR /GOOD DATA HERE 

RUFFRS /? DATA HERE 

ISZ COCNTR 

JMP REREDA /REREAD BLOCK IF ERROR 

JMP RDSWCH /GO BACK, READ ACS, SELECT NEW DRIVE 

'D R I V E s El-EC T En S A M E A S L A ST TJM E . T F ST F OR S E Rl E S 
SAmDrV JMS RAimDI /get a random 

SPA /READ THIS STRING? 

JMP MOFPRl+1 /FIND A NEW BLOCK 

ISZ RSOFLG 
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3 


RANOEX 


00?35 


600146 


0^236 


503425 


00237 


751200 


00240 


740001 


00241 


043446 


00242 


740001 


00243 


343401 


00244 


343407 


00245 


043472 


00246 


203446 


00247 


363472 


00250 


503373 


00251 


043472 


00252 


601070 


00253 


000000 


00254 


102353 


00255 


203426 


00256 


707544 


00257 


777400 


00260 


040030 


00261 


203364 


00262 


040031 


00263 


101701 


00264 


000100 


00265 


620253 


00266 


200030 


00267 


751200 


00270 


440253 


00271 


620253 


00272 


750001 


00273 


043457 


00274 


102726 


00275 


102754 


00276 


203472 


00277 


102670 


00300 


203511 


00301 


102633 


00302 


707572 


00303 


102670 


00304 


203512 


00305 


102633 


00306 


200030 


00307 


741200 


00310 


600315 


00311 


102670 


0031? 


203513 


00313 


102633 


00314 


600325 


00315 


100400 


00316 


777405 


00317 


340031 



DTRE15 

JMP NOFPRi+i 

AND THREE 

SNAiCLA /FORWARD? 

CMA /NO, GO BACKWARD 

OAC OIRFLG 

CMA 

TAD ONE 

TAD RBUFST /FORWaRO GETS 

dac record /first block 
lac oirflg /backward gets 
tad« record /last block 
and indep /mask to 10 bits 
dac record /and store 
jmp rdseo /go read 
/read data subroutine (1 block) 
/dirflg=777777 (backward). (forward) 

RDOATA 

JMS SEARCH 

LAC TRETHO /3000 

707544 /CHANGE SEARCH TO READ DATA 

LAW -400 

DAC WC /INITIALIZE WORD COUNT 

LAC BFlLOC 

DAC CA /AND CURRENT ADDRESS 

JMS WATINT /WAIT FOR COMPLETION 

100 /DTF 

JMP« RDDATA /STATUS ERROR EXIT 

LAC WC 

SNAiCLA 

ISZ RDDATA 

JMP» RDDATA /NORMAL EXIT 

/TYPE STATUS ERROR ON READ 1 BLOCK 
/TEST FOR DATA ERRORS IF FULL READ 
REREAD CLAiCMA 

OAC PASFLG 

JMS ERSTP /STOP TAPE 

JMS TYROAT 

LAC RECORD 

JMS OPRINT 

LAC (MESS2 

JMS MSPRNT 

707572 /READ M B" 

JMS OPRINT 

LAC (MESS3 

JMS MSPRNT 

LAC WC 

SNA /SHORT BUFFER? 

JMP .+5 /NO 

JMS OPRINT /TYPE C(WC) 

LAC (MESS4 

JMS MSPRNT /TYPE "W.C." 

JMP REREDA 

JMS PREGEN /REGENRATE PATTERN 

LAW -373 

TAD CA 



/TYPE BLOCK NUMBER 



/TYPE "BLOCK" 

/TYPE CONTENTS OF "B" 



/TYPE "STATUS B" 
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RfltsinEX 


30320 


04P324 


0«"321 


7774C0 


00322 


100626 


00323 


4 


00324 


004400 


00325 


750004 


00326 


751100 


00327 


740040 


00330 


443457 


00331 


600361 


00332 


203446 


00333 


740001 


00334 


043446 


00335 


100253 


00336 


600274 


00337 


100400 


00340 


777400 


00341 


100626 


0034? 


004000 


00343 


004400 


00344 


443442 


00345 


600325 


00346 


203446 


00347 


740001 


00350 


043446 


00351 


100253 


0035? 


600274 


00353 


777400 


00354 


100626 


00355 


004000 


00356 


004400 


00357 


443442 


00360 


600325 


00361 


203410 


00362 


243506 


00363 


707545 


00364 


101701 


00365 


500000 


00366 


600376 


00367 


163451 


00370 


163467 


00371 


750001 


00372 


063445 


00373 


203401 


00374 


043452 


00375 


600123 


00376 


102340 


00377 


600361 


00400 


000000 


00401 


203405 


00402 


040010 


00403 


777774 


00404 


043440 



0TRE15 

DAC .+4 

LAW -400 

JMS CODATA 

RANBFR 

BUFFRS 
REREDA LAS 

SPA!CLA /HALT ON ERRORS? 

XX /YES 

IS? PASFLG 

JMP REWDRV 

LAC OIRFLG 

CMA 

DAC DIRFLG 

JMS RODATA 

JMP REREAD+2 

JMS PREGEN 

LAW -400 

JMS CODATA 

RANBFR 

BUFFRS 

ISZ COCNTR 

JMP REREDA 

LAC OIRFLG 

CMA 

DAC DIRFLG 

JMS RODATA 

JMP REREAO+2 

LAW -400 

JMS CODATa 

RANBFR 

BUFFRS 

IS2 COCNTR 

JMP REREDA 
REWDRV LAC REWIND 

XOR UNFUNC 

707545 /CLEAR AND LOAD "A" 

JMS WATINT 

500000 /ERROR 

JMP .+10 

DZM* LSTBLK 

D2M* POSITN 

CLAICMA 

DAC« DIRECT 

LAC ONE 

DAC LSTDRV 

JMP RDSWCH 

JMS MOVER+2 

JMP REWDRV 
/MOVE FIRST 4 WORDS OF BLOCK READ 
/AND REGENERATF COMPARE PATTERN 
PREGEN 

LAC RBFLOC 

DAC 10 

LAW -4 

DAC CNTR 



/REWIND DRIVE IF NOT FIRST ERROR 



/CHANGE TO READ IN OPPOSITE DIRECTION 
/READ DATA 

/ERROR, AGAIN, TRY AGAIN 
/REGENERATE PATTERN 

/COMPARE DATA 



/DONE ALL BLOCKS? 
/NO 



/CHANGE DIRECTION 

/READ AGAIN 

/ANOTHER STATUS ERROR 

/COMPARE DATA READ 



/DONE ALL BLOCKS? 
/NO 



END OF TAPE 



/CLEAR LAST BLOCK 

/AND POSITION FOR DRIVE 

/SET DIRECTION FOR DRIVE BACKWARD 

/SET LAST DRIVE TO l 

/GO BACK ALMOST TO BEGINNING 
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00405 

00 4 6 
00407 
00410 
004H 
0041? 
00413 
00414 
00415 
00416 



220031 
100467 
060010 
750001 
340071 
040031 
443440 
600405 
100417 
620400 



00417 


000000 


00420 


777774 


00421 


043440 


00422 


203407 


00423 


043463 


00424 


203406 


00425 


043464 


00426 


203502 


00427 


043501 


00430 


223463 


00431 


043502 


00432 


100467 


00433 


063464 


00434 


443463 


00435 


750001 


00436 


343464 


00437 


043464 


00440 


443440 


00441 


600426 


00442 


777604 


00443 


043440 


00444 


203501 


00445 


744020 


00446 


741400 


00447 


243400 


00450 


043503 


00451 


063463 


00452 


100467 


00453 


063464 


00454 


203502 


00455 


043501 


00456 


203503 


00457 


043502 


00460 


443463 


00461 


750001 


00462 


343464 


00463 


043464 


00464 


443440 


00465 


600444 


00466 


620417 


00467 


000000 



LAC» CA 
JMS MCOMOB 
DAC» 10 
CLAtCMA 
TAD CA 
DAC CA 
IS? CNTR 
JMP .-7 

jms patgen 

jmp» pregen 
/gfneRaTe Random data pattern 
/FIRST four wo«ds of pattern are in 
/random buffer words i to 4 

PATGEN 

LAW -4 

DAC CNTR /INITIALIZE A COUNTER 
LAC RBUFST 

OAC PNTRl /AND TWO POINTERS 
LAC RBUFND 

OAC PNTR2 /FOR WORD TRANSFERS 
LAC TEM2 

DAC TEM1 /MOVE TEMl 
LAC» PNTRl 
OAC TEM2 /AND TEM2 

JMS MCOMOB /FORM COMPLEMENT OBVERSE 

DAC« PNTR2 /AND STORE IN RUFFER 

IS? PNTRl /INCREMENT FORWARD ADDRESS 
PL A * CM A 
TADPNTR2 /DECREMENT BACKWARD 

DAC PNTR2 

IS? CNTR /DONE 4? 

/NO 



JMP 
LAW 



,-13 
•174 



DAC CNTR 



GNPATR 



CLLIRAR 
SZL 



/STORE IN BUFFER 

/STORE COMP OBVERSE 



/FOR 174 (OCT) MORE 

LAC TEMi 

/FORM NEXT WORO 

/OF RANDOM 
XOR MUCH0 /PATTERN 
DAC TEM 3 
DAC. PNTRl 
JMS MCOMOB 
DAC» PNTR2 
LAC TEM2 /MOVE 
DAC TEMl /A 
LAC TEM3 /FEW 
DAC TEM2 /WORDS 
ISZ PNTRl /INCREMENT FORWARD ADDRESS 

CLA ! CMA 

TaD PNTR2 /DECREMENT BACKWARD ADDRESS 

DAC PNTR2 

ISZ CNTR /DONE ALL? 
JMP GNPATR /NO 

JMP» PATGEN 
/COMPLEMENT OBVERSE SUBROUTINE 
MCOMOB 
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00470 


744001 


00471 


U43454 


00472 


143456 


00473 


777772 


00474 


043477 


00475 


203514 


00476 


047465 


00477 


? 3 4 5 4 


0v4500 


741000 


00501 


74201 


0050? 


742010 


00503 


74701/) 


00504 


4 3 4 54 


00505 


523465 


00506 


243456 


00507 


043456 


00510 


443465 


005H 


203454 


00512 


443477 


00513 


600501 


00514 


203456 


00515 


620467 


00516 


000000 


00517 


200525 


00520 


744010 


00521 


741400 


0052? 


340526 


00523 


040525 


00524 


620516 


00525 


000171 


00526 


000003 


00527 


000000 


00530 


200536 


00531 


744010 


00532 


741400 


00533 


340537 


00534 


040536 


00535 


620527 


00536 


000015 


00537 


000003 


00540 


000000 


00541 


200547 


00542 


744010 


00543 


741400 


00544 


340550 


00545 


040547 


00546 


620540 


00547 


000031 


00550 


000003 



00551 



000000 



CMA!CLL 

nAC NUMBER 

02M OSVERS 

LAW -6 

DAC TALLY 

LAC (SEVEN 

DAC PNTR3 

LAC NUMBER 

SKP 
LOOP RTL 

RTL 

RTL 

DAC NUMBER 

AND» PNTR3 

XOR OBVERS 

DAC OBVERS 

ISZ PNTR3 

LAC NUMBER 

ISZ TALLY 

JMP LOOP 

LAC OBVERS 

JMP» MCOMOB 
/RANDOM NUMBER GENERATORS 
RAND1 

LAC Rl 

RAL'CLL 

S2L 

TAD Rl+l 

DAC Rl 

JMP# RANDl 
Rl 171 

3 
RANQ2 

LAC R2 

RAL'CLL 

S2L 

TAD R2+1 

DAC R2 

JMP» RAND2 
R2 15 

3 
RAND3 

LAC R3 

RAL'CLL 

S2L 

TAD R3+1 

DAC R3 

JMP, RAND3 
R3 31 

3 

/randomly Select a dr jv e 
/stays in this routine until a 
/drive is found and direction and 
/position pointers are generated 

RANSEL 



PAGE 



RANOEX 



DTRE15 



P055? 


10(^527 


00553 


503413 


055« 


043436 


00555 


744020 


00556 


742020 


00557 


740020 


00560 


043506 


00561 


203436 


00562 


740001 


00563 


043440 


0H564 


203430 


'00565 


443440 


00566 


741000 


00567 


600572 


00570 


744020 


00571 


600565 


0057? 


503453 


00573 


741200 


00574 


60C552 


00575 


203436 


00576 


343403 


00577 


043467 


00600 


203436 


00601 


343366 


00602 


043445 


00603 


203436 


00604 


343374 


00605 


043451 


00606 


620551 



JMS RAND2 /GFT A RANDOM NUMBER 
AND SEVEN /MASK OFF UNWANTED BITS 



00607 


000000 


00610 


043440 


00611 


750001 


00612 


360607 


00613 


040010 


00614 


440607 


00615 


750001 


00616 


360607 


00617 


040011 


00620 


440607 


00621 


220010 


0062? 


060011 


00623 


443440 


00624 


600621 


00625 


620607 



00626 


000000 


00627 


043440 


00630 


220626 


00631 


043463 


00632 


440626 



DAC CDRIVE 
CLLJRAR 



RTR 
RAR 
DAC 
LAC 
CMA 
OAC 
LAC 
IS? 
SKP 
JMP 
CLL! 
JMP 
EXIST AND 
SNA 
JMP 
LAC 
TAD 
DAC 
LAC 
TAD 
DAC 
LAC 
TAD 
DAC 
JMP< 
/MOVE 



/SAVE 



/DRIVE NUMBER 



/FIND POSITION 



UNFUNC 
CDRIVE 

CNTR 
TWOHUN 
CNTR /OF 

/BIT 
EXIST /WITH RESPECT 
RAR /TO 
.-4 /ACS 
MSB ITS /ASK WITH ACS 

/DOES UNIT EXIST (TEST UNIT?)? 

RANSEL+1 

CDRIVE 

POSTBL 

POSITN 

CDRIVE 

DIRTBL 

DIRECT 

CDRIVE 

LSTTBL 

LSTBLK 

RANSEL 
DATA SUBROUTINE 



/NO 
/YES 

/FO-RM POSITION POINTER 



/FORM DIRECTION POINTER 



/LAST BLOCK WRITTEN POINTER 



/# OF WORDS IN AC. ORIGIN JMS+1 
/DESTINATION JMS*2 
MVDATA 

DAC CNTR 

CLAICMA 

TAD» MVDATA 

DAC 10 

IS? MVDATA 

CLA'CMA 

TAD* MVDATA 

DAC 11 

I SZ MVDATA 

LAC» 10 

DAC* 11 

ISZ CNTR 

JMP .-3 

JMP« MVDATA 
/COMPARE DATA SUBROUTINE 

/# OF WORDS IN AC, CORRECT ADDRESS IN JMS+l 
/QUESTIONABLE ADDRESS IN JMS+2 
CODATA 

DAC CNTR 

LAC» CODaTa /GET CORRECT ADDRESS 

DAC PNTRl 
ISZ CODATA 
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? 6 3 3 
30634 
00635 
^ -^636 
6 3 7 
00640 
6 4 1 
6 4 ? 
00643 
00644 
tl 6 4 5 
6 4 6 
fli? 6 4 ? 
00650 
00651 
6*065? 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
00674 
00675 
00676 
00677 
00700 
00701 
0070? 
00703 
00704 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 



?2tf6?6 
043464 
750001 
4 3 4 4 2 
4406?6 
223463 
740001 
343401 
363464 
740200 
600653 
4 4 3 4 6 3 
443464 
443440 
600640 
620626 
443442 
600673 

102726 
707552 
503402 
741200 
600664 
102765 
741000 
102754 
203515 
102633 
203472 
102670 
203516 
102633 
750004 
742010 
740100 
600703 
777774 
343442 
740100 
600646 
102714 
223463 
102670 
203517 
102633 
223464 
102670 
203520 
102633 
203464 
102670 
203521 
102633 
600646 



lac 
nAC 

CLA 
OAC 
IS? 

C0L00P 

CMA 
TAO 
TAD 
SZA 
JMP 
IS? 
IS? 
IS? 
JMP 
JMP 

COERRO 

JMP 
JMS 
707 
AND 
SNA 
JMP 
JMS 
SKP 
JMS 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
COERRl 

RTL 
SMA 
JMP 
LAW 
TAO 
SMA 
JMP 
JMS 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
JMP 
/ INI T 



« CODaTa 

PNTR2 
!CMA 

COCNTR 

CODATA 

LAC» PNTRl 

ONE 
* PNTR2 



/GET QUESTIONABLE ADDRESS 
/SET NO ERROR ELAG 



COERRO 
PNTRl 
PNTR2 
CNTR 
COLOOP 
COOATA 

IS? COCNTR 
COERRl /NO 

erstp /stop tape 

552 /READ "A" 
ONETHO 

/"ALL" MODE? 
.+3 /NO 
TYRALL 



/FIRST ERROR? 



TYRDAT 
(MESS5 
MSPRNT 
RECORD 
OPRINT 
(MESS2 
MSPRNT 



/YES, GO TYPE 

/TYPE "DATA ERROR" 

/TYPE BLOCK NUMBER 

/TYPE "BLOCK" 



LAS 



/SHOULD ONLY 4 BE TYPED 
.+5 /NO, TYPE ALL ERRORS 
-4 /YES HAVE 
COCNTR /4 BEEN 

/TYPED? 



COLOOP+6 
CRLF 

• PNTRl 
OPRINT 
(MESS6 
MSPRNT 

• PNTR2 
OPRINT 

(MESS? 
MSPRNT 

PNTR2 
OPRINT 
(MESS8 
MSPRNT 
COLOOP+6 
IATE WRITE OPERATIONS 



/YES, DELETE REST OF TEST 



/TYPE STANDARD 

/AND "COR" 

/TYPE INCORRECT 

/AND "INC" 

/TYPE ADDRESS OF INCORRECT 

/TYPE "ADDR" 
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00721 


2034*15 


00722 


04P210 


AU723 


223451 


00724 


6 1 


00725 


203455 


00726 


740001 


00727 


343401 


00730 


363451 


00731 


043472 


0073? 


776700 


00733 


343472 


00734 


740100 


00735 


601034 


00736 


203472 


00737 


060010 


00740 


100540 


00741 


060010 


00742 


100516 


00743 


060010 


00744 


100527 


00745 


503425 


00746 


751200 


00747 


740001 


00750 


043446 


00751 


343407 


00752 


040010 


00753 


040011 


00754 


754002 


00755 


740020 


00756 


360010 


00757 


060011 


00760 


100417 


00761 


203455 


00762 


043475 


00763 


203455 


00764 


740001 


00765 


043472 


00766 


203446 


00767 


740200 


00770 


203472 


00771 


363451 


0077? 


043472 


00773 


601332 


00774 


102353 


00775 


203370 


00776 


707544 


00777 


777400 


01000 


040030 


01001 


203405 


01002 


040031 


01003 


101701 



/LAST BLOCK+l 



/generate pattern words and 
/block numbers 
write1 lac rbfloc 

dac 10 /set up 10 for storage 

lac» lstblk 

dac« 10 /set up first word 

LAC NUMBLK 
CMA 

TAD ONE 
TaD» LSTBLK 
DAC RECORD 
LAW -1100 
TAD RECORD 

SMA /REWIND UNIT? 
JMP REWCK /YES 
LAC RECORD 
DAC« 10 
JMS RAND3 
DAC* 10 
JMS RAND1 
DAC« 10 
JMS RAND2 
AND THREE 
SNAiCLA 
CMA 

DAC DIRFLG 
TAD RBUFST 
DAC 10 

DAC 11 /FORM FIRST WORD 
CLA'CLL;CML /INDICATE 

RAR /BACKWARD 
TAD« 10 /OR 2ND WORD 
DAC« 11 /INDICATE FORWARD 

JMS PATGEN /GENERATE 256 WORD PATTERN 

LAC NUMBLK 

DAC SAVNUM /SAVE NUMBER OF BLOCKS 

CORTlR LAC NUMBLK 

CMA 



/FIRST RANDOM WORD 
/SECOND RANOOM WORD 

/FORM DIRECTION 

/AND STORE 



DAC RECORD 

LAC DIRFLG 

SZA /BACKWARD 

LAC RECORD 

TAO« LSTBLK 

DAC RECORD 
/TEST FOR WRITE DATa CONTINUOUS MOOE 
/IF NUMBER OF BLOCKS = INC OF 3 

JMP WDCMOD 



IS 

/LAST BLOCK ♦ NUMBER OF BLOCKS 

/TO FIND FIRST BLOCK TO BE WRITTEN 



JMS SEARCH 
WRT1A LAC EIVTHO 

707544 /XOR INTO 

LAW -400 

OAC WC /SET UP WC 

LAC RBFLOC 

DAC CA /AND CA 

JMS WATINT 



/SEARCH TO WRITE DATA 
"A" 



/WAIT 
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RftNPEX 


01?04 


000100 


01005 


603 042 


01086 


? 3 


Ml 110 7 


7 4 4 20 


01010 


601042 


fl 1^11 


203446 


f 1^1? 


343472 


01013 


7 4H00 


01014 


7 5 4 2 


01015 


4 3 4 7 2 


v* 1 P> 1 ft 


750400 


01017 


447472 


01^20 


443455 


01021 


600776 


01022 


203472 


01023 


063467 


01024 


203446 


01025 


063445 


01026 


204 01 


01027 


503373 


01030 


063451 


01031 


203432 


01032 


707544 


01033 


600123 


01034 


100540 


01035 


741100 


01036 


600361 


01037 


143472 


01040 


143446 


01041 


600211 


01042 


102726 


01043 


102776 


01044 


203472 


01045 


102670 


01046 


203522 


01047 


102633 


01050 


203475 


01051 


043455 


01052 


707572 


01053 


102670 


01054 


203523 


01055 


102633 


01056 


200030 


01057 


102670 


01060 


203524 


01061 


102633 


0106? 


750004 


01063 


751100 


01064 


740040 


01065 


443457 


01066 


600361 


01067 


600763 



/NO 



0TRE15 

1.00 /OTF 

JMP WSTERR 

LAC WC 

SZA!CLL /WC = 0? 

JMP WSTERR 

LAC OIRFLG 

TAD RECORD 

SPA 

CLA!CLL!CML 

DAC RECORD 

SNLICLA /RECORD 

IS2 RECORD 

ISZ NUMBLK 

JMP WRTIa+1 
WDinC LAC RECORD 

DAC* POslTN 

LAC DIRFLG 

DAC. DIRECT 

LAC RANBFR+1 

AND INDEP 

DAC« LSTBLK 

LAC TYTHOU 

707544 /XOR INTO "A" (STOP TaPE> 

JMP RDSWcH 
REWCK JMS RAND3 /GET RANDOM NUMBER 

SPA /+ OR - ? 



I? 
/NO +1 

/DONE ALL BLOCKS? 
/NO, DO ANOTHER 

/NEW POSITION 
/NEW DIRECTION 

/NEW LAST BLOCK 



/GET C<SR> THEN SELECT AGAIN 



JMP REWDRV 
D?M RECORD 
D2M DIRFLG 
JMP RDTAB 



/(-) 

/READ BLOCK 

/FORWARD 



WSTERR JMS ERSTP /STOP TAPE - LEAVE FLAGS 

JMS TYWDAT 
LAC RECORD 
JMS OPRINT 
LAC (MESS2 
JMS MSPRNT 
LAC SAVNUM 
OAC NUMBLK 
707572 /READ "B" 



/TYPE BLOCK NUMBER 



/TYPE "BLOCK" 



/PRINT C<B> 
/TYPE "STATUS 
/PRINT C<WC> 
/TYPE "WC" 



01070 204000 



JMS OPRINT 

LAC (MESS3 
JMS MSPRNT 

LAC WC 

JMS OPRINT 

LAC (MESS4 

JMS MSPRNT 

LAS 

SPA!CLA /STOP ON ERROR? 

XX /YES 

IS? PASFLG /2ND ERROR? 

JMP ReWdRV /YeS, ReWINq 

JMP CORTIR /NO 

/READ ENTIRE SEQUENCE of* BLoCKS 
/AS ORIGINALLY WRITTEN 
RDSEO LAC RANBFR /GET LOWEST BLOCK 
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CI 371 


503373 


01072 


043472 


1 / 7 3 


204001 


1 1? 7 4 


503373 


01075 


043455 


01076 


203472 


«1<?77 


7 4 1 


01100 


343455 


01101 


043455 


01102 


100516 


01103 


755100 


01104 


7 4 00 3 


01106 


043446 


0110ft 


203472 


01107 


741400 


01110 


343455 


01111 


043472 


01112 


203455 


01113 


740001 


01114 


043455 


01115 


100263 


01116 


600272 


01117 


443465 


01120 


601123 


01121 


203432 


01122 


601130 


01123 


203365 


01124 


040031 


01125 


777400 


01126 


040030 


01127 


750000 


01130 


707544 


01131 


777400 


01132 


100626 


01133 


004000 


01134 


004400 


01135 


443442 


01136 


600325 


01137 


203455 


01140 


741200 


01141 


601214 


01142 


203446 


01143 


741208 


01144 


343401 


01145 


343472 


01146 


043472 


01147 


101701 


01150 


000100 


01151 


600272 


01152 


200030 


01153 


740200 


01154 


600272 


01155 


443455 


01156 


601161 


01157 


203432 



/GET LAST BLOCK+l 
/MAKE NUMBER OF BLOCKS 



ANH INDEP 

DAC RECORD 

LAC RANBFR+i 

AND INOEP 

DAC NUMBLK 

LAC RECORD 

CMA 

TAD NUMBLK 

DAC NUM8LK /SET UP NUMBLK 

jms randl /get a random 
spa:cla:cll /Read forward? 
cmaicml /no backward. ac = -0, l=i 
dac oirflg 
lac record 

S2L 

TAD NUMBLK 

DAC RECORD 

LAC NUMBLK /MAKE NUMBER OF BLOCKS NEGATIVE 

CMA 

DAC NUMBLK 

JMS ROOATa /READ FIRST BLOCK 

JMP REREAD /STATUS ERROR IN READ 

RDRUFl IS? NUMBLK /READ ALL BLOCKS? 

+ 3 /NO 



JMP 

LAC TYTHOU 

JMP 



/GET CONSTANT TO STOP TAPE 



/AND WC 

/yOR INTO "A" 



.+6 
LAC BF2L0C 

DAC CA /SET UP CA 
LAW -400 
DAC WC 
CLA 

707544 
LAW -400 
JMS CODATa 
RANBFR 
BUFFRS 
ISZ COCNTR 
JMP REREDA 
LAC NUMBLK 
SNA /DONE COMPLETE SERIES 



/COMPARE DATA 



/ANY DATA ERRORS? 

/YES, READ OTHER DIRECTION 



JMP NDOFRD 

LAC OIRFLG 

SNA 

TAD ONE 

TAD RECORD 

DAC RECORD 

JMS WATINT 

100 /DTF 

JMP REREAD 

LAC WC 

SZA /WC - 0? 

JMP REREAD 

ISZ NUMBLK 

JMP .+3 /NO 

LAC TYTHOU 



/YES 
/NO 



/LAST BLOCK +1 OR -1 

/WAIT 

/STATUS ERROR, REREAD 



/NO, REREAD 
/DONE ALL READS? 

/YES. GET READ TO 
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01160 
01161 
01 16? 
( 163 
01164 
011 65 
01166 
01167 

01171 
0117? 
01173 
01174 

01175 
01176 
01177 
01200 
01?01 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 



01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
0123? 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 



601166 
203364 
040031 
777400 
4 3 
750300 
707544 
777400 
1 006P6 
4 
05 01 
443442 
600325 
203455 
741200 
601214 
203446 
741200 
343401 
343472 
043472 
101701 
000100 
600272 
200030 
740200 
600272 
601117 
203472 
063467 
203446 
063445 
600123 



203446 
740200 
601232 
203472 
740001 
363451 
740200 
601235 
600211 
203472 
741200 
600211 
102353 
2034?7 
707544 
777000 
040030 
203364 
040031 
101701 



/AND WC 



/XOR INTO A 



JMP .+6 /STOP TAPE 

LAC 8F1L0C 

r)AC CA /SET UP CA 

LAW -400 

DAC WC 

CLA 

707544 

LAW -400 

JMS COOATa 

RANBFR 

BUFFRS+401 

IS? COCNTR 

JMP REREDA 

LAC NUMBLK 

SNA /READ AND COMPARE ALL? 



/COMPARE DATA 



/ANY COMPARE ERRORS 

/YES, READ OPPOSITE DIRECTION 



JMP NOOFRO 

LAC DIRFLG 

SNA 

TAD ONE 

TAD RECORD 

OAC RECORD 

JMS WATINT 

100 /DTF 

JMP REREAD 

LAC WC 

SZA /WC = 0? 

JMP REREAD 

JMP RDBUF1 

NDOFRD LAC RECORD 

DAC* POSITN /NEW POSITION 

LAC OIRFLG 

OAC* DIRECT /NEW DIRECTION 

JMP RDSWCH /GO BACK FOR ANOTHER 

/READ DATA CONTINUOUS MOOE 
/TWO BLOCKS AND COMPARE DATA READ 
RDCMOD LAC DIRFLG 

SEA /FORWARD? 

JMP .+7 /NO 

LAC RECORD 

CMA 



/YES 
/NO 



/LAST BLOCK +i OR -1 

/WAIT 

/STATUS ERROR, REREAD 



/NO, REREAD 

/COMPARE FIRST BUFFER 



/BLOCK +1 WRITTEN? 



TAD* LSTBLK 

SZA 

JMP .+5 

JMP RDTAB /BLOCK NOT WRITTEN, REAO ONLY i 

LAC RECORD 

SNA 

JMP RDTAB /BLOCK BACKWARDS, READ ONLY i 

JMS SEARCH /FIND FIRST BLOCK 

LAC TRTETH /13000 

707544 /XOR INTO "a" (CHANGED TO READ CONT) 

LAW -1000 

DAC wC /SFT UP WC AnO 

LAC BFlLOC 

DAC CA /CA FOR 2 BLOCKS 

JMS WATINT /WAIT FOR END OF TRANSFER 
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0124^ 
01246 
01247 
PI 1? "5 PI 
01251 
01?5? 
01253 
01254 
01255 
01256 
01257 
0126? 
01261 
0126? 
01263 
01264 
01265 
01266 
01267 
01270 
01271 
0127? 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 



00?100 

601314 
2005)33 
74!*200 
600272 
2 03432 
7 07 5 4 4 
203446 
741200 
343401 
343472 
043472 
100 4 00 
777400 
100626 
004000 
005000 
44344? 
600325 
750001 
343365 
040031 
100400 
203446 
741200 
343401 
7 4 01 
343401 
343472 
043472 
777400 
100626 

004000 
004400 
443442 
600325 
?03 4 72 
063467 
600123 
200B30 
741200 
601324 
740001 
343401 
340777 
040030 
600272 
203446 
741200 
343401 
34347P 
043472 
600272 



100 /DTF 

JMP RDCERR 

LAC WC 

SZA /WC = 0? 

JMP REREAD 

LAC TYTHOU 

707544 /XOR INTO "A 

LAC OIRFLG 

SNA 

TAO ONE 

TAD RECORD 

DAC RECORD 

JMS PREGEN 

LAW -400 /BLOCK 

JMS CODATA 

RANBFR 

BUFFRS+400 

ISZ COCNTR 

JMP REREDA 

CLAICMA 

TAD BF2L0C 

DAC CA 

JMS PREGEN 

LAC OIRFLG 

SNA 

TAD ONE 

CMA 

TAO ONE 

TAD RECORD 

DAC RECORD 

LAW -400 

JMS CODATA 

RANBFR 

RUFFRS 

ISZ COCNTR 

JMP REREDA 

LAC RECORD 

DAC* POSITN 

jMP RDSWC H 



/ERROR, SEE WhICH BLOCK 



/NO 

/GET "STOP" 



/VERIFY LAST 



/FIRST 



/ANY DATA ERRORS 
/YES, REREAO 



/ANY DATA ERRORS? 

/YES, REREAD 

/NO, SET NEW 

/POSITION 

/ G BACK F° R ANOT H ER JOB 



RDCERR LAC WC 

SNA /ERROR IN 2ND BLOCK? 
JMP .+6 /YES, COUNT BLOCK 
CMA 
TAD ONE 

/-4(i 



(OCT) 
/TYPE STATUS ERROR 



TAD WRT1A+2 

DAC WC 

JMP REREAD 

LAC OIRFLG 

SNA /BACKWARD (-1) 

TAD ONE /FORWARDS (+1 

TAD RECORD 

DAC RECORD 

IMP RFRF An 

/WRITE DATA CONTINUOUS MOOE IF 
/NUMBER OF BLOCKS IS AN INCREMENT OF 3 
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Pi 1 33? 

01333 
013 3 4 
01335 
01336 
01337 
01 340 

1 3 4 1 
0134? 

01343 
013 4 4 
01345 
01346 
01347 
01350 
01351 
0135? 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
0136? 
01363 
01364 
01365 
01366 
01367 
01370 
01371 
0137? 
01373 
01374 
01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
01411 
01412 

01413 
01414 

01415 
01416 
01417 
01420 



1 43505 
?0?455 
343425 
7412^0 
601343 
7 4 010 
60?1774 

4 4^505 
601334 
203505 
740001 
043505 
777000 
100607 
004000 
004400 
102353 
203367 
707544 
776400 
040030 
203405 
040031 
101701 
000100 
601405 
200030 
740200 
601405 
203446 
754200 
740002 
343425 
740400 
601377 
740001 
343401 
343472 
043472 
750000 
443505 
601354 
601022 
143505 
200030 
740001 
343401 
340777 
741100 
601416 
443505 
601411 
203446 
754200 
740002 



WDCMOQ 



D2M TRECTR 
LAC NUMBLK 
TAD THREE 

SNA /AN INCREMENT OF 3? 
JMP SWCMOD /YES, WRITE CONT , 

/GONE PAST 0? 



SMA 



/YES. NOT INC, 
/NO, COUNT 1 
/AND REPEAT 



JMP WRTiA-i 

IS? TRECTR 

JMP WOCMOD+2 
SWCmOO LAC TRECTR 

CMA 

DAC TRECTR 

LAW -1000 /MAKE PATTERN 

JMS MVDATA /3 BUFFERS 

RANBFR /LONG 

BUFFRS 

JMS SEARCH 

LAC FIFTHO 
SWCMDL 707544 

LAW -1400 /SET UP WC 

DAC WC /FOR 3 BLOCKS 

LAC RBFLOC 

DAC CA /AND CA 

JMS WATINT 

100 /DTF 

JMP WDCERR 

LAC WC 

SZA /WC = 0? 

JMP WDCERR 

LAC DIRFLG 

S2A!CLA!CLL /FORWARD? 



OF 3 



/15000 (SEARCH TO WRITE CONT) 
/XOR INTO "A" 



/WAIT 

/NOT NORMAL INTERRUPT 



/NO 



CML 



/NO, SET LINK 



TAD THREE /GET 3 



SNL 

JMP .+3 

CMA 

TAD ONE 

TAD RECORD 

DAC RECORD 

CLA 

ISZ TRECTR 

JMP SWCMDL 

JMP WDINC /YES 



/BACKWARD 

/NO 

/YES, 



-3 



/DONE ALL 

/NO, DO NEXT 3 



WDCERR 



DZM TRECTR 



LAC WC 
CMA 



TAD ONE 
TAD WRT1A+? 
SPA 

JMP .+3 
ISZ TRECTR 
JMP .-4 
LAC DIRFLG 
S?A!CLA!CLL 



/ -WC 



(OCT) 



/FORWARD? 



CML 



/NO, BACKWARD, MAKE -1 OR -2 
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P11421 
0142? 
01423 
P»1424 
01425 
01426 
01427 
P>143P» 



2035^5 
740400 
601426 
7 4 M PI 1 
343401 
343472 
043472 
601042 



01431 


203446 


01432 


741200 


01433 


343401 


01434 


740001 


01435 


343401 


01436 


343472 


01437 


043472 


(711440 


741100 


01441 


600123 


01442 


343376 


01443 


750100 


01444 


600145 


01-445 


1 4 3 4 7 1 


01446 


102353 


01447 


707554 


01450 


203446 


01451 


741200 


01452 


343401 


01453 


343472 


01454 


043472 


01455 


707561 


01456 


741000 


01457 


601556 


01460 


707601 


01461 


601455 


01462 


203435 


01463 


740001 


01464' 


343401 


01465 


343472 


01466 


750200 


01467 


601556 


01470 


20343* 


01471 


707544 


01472 


777374 


01473 


040030 


01474 


203364 


01475 


040031 


01476 


101701 


01477 


000100 


01500 


601657 


01501 


200030 



LAC TRECTR 

SNL 

JMF .+3 

CMA 

TAD ONE 

TAD RECORD 

OAC RECORO 

JMP WSTERR 
/READ ALL ROUTINF 

/REV CKSM, DA"U, AND CKSM ARE READ 
/CKSMS ARE GFNFRATED AND TESTED 



/BLOCK IN ERROR 

/TYPE OUT WRITE ERROR 



RALLTS 



SNA 

TAD ONE 

CMA 

TAD ONE 

TAD RECORD 

OAC RECORD 

SPA 

JMP RDSWCH 

TAD MBLOCK 

SMAICLA 

JMP MOFPRl 



LAC DIRFLG 
/BACKWARDS? 
/NO, FORWARD 

/♦l FOR BACKWARD. -1 FOR FORWARD 



/CAN'T DO 



/OR 1100 
/FIND THE BLOCK ANn CHANGE TO READ ALL 
/CLEAR READ ALL ERROR FLAG 

PZM RAEFLG /CLEAR READ ALL ERROR FLAG 

jms search /find block 
707554 /Clear dtf and ef 

LAC OlRFLG 

SNA 

TAD ONE 

TAD RECORD 

DAC RECORD 

707561 /SKIP ON ERROR FLAG 

SKP 

JMP RASERR /DECTaPE ERROR 

707601 /SKIP ON OECTAPE FLAG 
JMP .-4 /NO FLAGS, CHECK AGAIN 

LAC BLKFND /GET CURRENT DECTAPE BLOCK NUMBER 

CMA 

TAD ONE 
TAD RECORD 

SHAiCLA /IS IT THE ONE WE ARE LOOKING FOR? 
JMP RASERR /NO, ERROR 

/CHANGE TO REAP ALL CONTINUOUS 
LAC TWVTHO 
707544 
LAW -404 

DAC WC /SET WO FOR 404 WORDS 
LAC BFlLOC 



/SEARCH TO READ ALL CONT 
/XOR INTO "A" 



DAC CA /SET CA 
JMS WATINT 
100 /DTF 
JMP ERRRAR 
LAC WC 



/WAIT 



/READ ALL STATUS ERROR 
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01502 
01503 
01504 
01505 

01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01540 
01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 



01560 
01561 
01562 
01563 
01564 



740200 
601657 
?03432 
707544 

203404 
4 1 
777400 
043440 
143437 
204402 
503421 
043473 
220010 
101560 
443440 
601516 
203437 
503421 
043444 
770000 
520010 
043450 
101560 
203473 
101560 
203437 
740001 
503421 
740200 
601602 

203472 

063467 

750001 
340031 
040031 
100400 
777400 
100626 
004000 
004403 
443471 
443442 
600325 
600121 
143457 
602562 



000000 

740001 
043501 
777775 
043477 



S24 /wr = 0? 
JMP ERRRaR /no 

LAC TYTHOU /STOP TAPE 

707544 /XOR INTO "A" 
/GfNE RAT E C KSMS AN" T E ST SUm = 00 
LAC RADLoC 
OAC 10 /SFTUP 10 
LAW -400 

HAC CNTR /AND COUNTER FOR 

02M CKSUMR /PROCESSING, HERO CHECKSUM 

LAC RUFFRS+2 
AND SEVSEV 

DAC REVCHK /SAVE REVERSE CHFCK 

LAC* 10 /GET NEXT DaTaWORO 



JMS XORSUM 

ISZ CNTR /DONE? 

JMP .-3 /NO 

LAC CKSUMR 

AND SEVSEV 

DAC DATASM 



/XOR INTO CHECKSUM 



/YES, GET FINAL 

/MASK 

/AND SAVE 
LAW 10000 /LOAD AC WITH 770000 
AND» 10 /COMBINE WITH FORWARD CKSM 
DAC FWDCHK /AND SAVE 

JMS XORSUM /COMBINE FWQCHK AND OATaSM 

LAC REVCHK 

JMS XORSUM /COMBINE WITH REVCHK 

LAC CKSUMR 
CMA 

AND SEVSEV 

SZA /IS RESULT 0? 
JMP ERRCKS /NO, ERROR 

RADCHK LAC RECORD 

OAC» POSITN /UPDATE POSITION TABLE 

CLAiCMA 
TAD CA 

DAC CA /SUBTRACT 
JMS PREGEN 

LAW -400 /COMPARE AGAINST 
JMS CODATA /PATTERN OBTAINED 

RANBFR /FROM TAPE 
PUFFRS+3 

ISZ RAEFLG /ANY READ ALL ERRORS 

ISZ COCNTR /NO, ANY DATA ERRORS 

JMP REREDA /YES, YES 

JMP RDSWCH-2 /NO, GO BACK 
RASERR DZM PASFLG 

JMP SRHERR 

/TC02 Random exerciser - Tape 2 

/FORM 6-BIT XOR OF AC AND CKSUMR 

/SAVE RESULTS IN CKSUMR 
XORSUM 

CMA 

DAC TEM1 

LAW -3 

OAC TALLY 



1 FrOM CA 
/GENERATE PATTERN 
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01565 


203501 


01566 


744010 


01567 


742010 


01570 


742010 


01571 


742010 


01572 


043501 


01573 


503421 


01574 


2 4 3 4 3 7 


01575 


043437 


01576 


203501 


01577 


443477 


01600 


601567 


01601 


621560 


0160? 


102765 


01603 


203472 


01604 


102670 


01605 


203525 


01606 


102633 


01607 


203526 


01610 


102633 


01611 


102714 


01612 


203473 


01613 


102670 


01614 


203527 


01615 


102633 


0l6l6 


101647 


01617 


102714 


01620 


203444 


01621 


102670 


01622 


760240 


01623 


102661 


01624 


103030 


01625 


101647 


01626 


101653 


01627 


102714 


01630 


203450 


01631 


102670 


01632 


101647 


01633 


102714 


01634 


203437 


01635 


740001 


01636 


503421 


01637 


043437 


01640 


102670 


01641 


101653 


0164? 


203530 


01643 


102633 


01644 


750001 


01645 


043471 


01646 


601540 


01647 


000000 


01650 


203531 


01651 


102633 


01652 


621647 



LAC 
RAL 
RTL 
RTL 
RTL 
OAC 
AND 
XOR 
DAC 
LAC 
IS? 
JMP 



TEMi 
CLL 



TEM1 

SEVSEV 

CKSUMR 

CKSUMR 

TEM1 

TALLY 

.-11 
JMPe XORSUM 
/CHECKSUM ERROR TYPEOUT 
ERRCKS JMS TYRALL 

LAC RECORD 
JMS OPRINT 
LAC CMESS2 
JMS MSPRNT 
LAC (MESS9 
JMS MSPRNT 
JMS CRLF 
LAC REVCHK 
JMS OPRINT 
LAC (MESS10 
JMS MSPRNT 
JMS CKSTYP 
JMS CRLF 
LAC QATASM 
JM S Op R IN T 
LAW 240 
JMS TYPE 
JMS TYDATA 
JMS CKSTYP 
JMS CALCTY 
JMS CRLF 
LAC FWDCHK 
JMS OPRINT 
JMS CKSTYP 
JMS CRLF 
LAC CKSUMR 
CMA 

AND SEVSEV 
DAC CKSUMR 
JMS OPRINT 
JMS CALCTY 
LAC (MESSli 
JMS MSPRNT 
CLA!CMA 
DAC RAEFLG 
JMP RADCHK 
CKSTYP 

LAC <MESSl2 
JMS MSPRNT 
JMP* CKSTYP 



/TYp E OUT HEADER 
/TYPE OUT BLOCK NUMBER 
/TYPE "BLOCK" 
/TYPE "CKSUM ERROR" 

/TYPE OUT REVCHECK 



/TYPE 
/TYPE 



"REV" 
"CHKSUM" 



/TYpE DATA SUM 



/TYPE "CHKSUM r 



/TYPE FORWARD CHECKSUM 
/TYPE "CHKSUM" 



/TYPE CALCULATED CKSM 



/TYPE "L.P.B." 
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016 5 3 
01654 
01&55 
01656 

01657 

01660 

01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 



01701 
01702 
01703 
01704 
01705 
01706 
01707 
0l7l0 
01711 
01712 
01713 
01714 
01715 
01716 
01717 
01720 
01721 
01722 
01723 
01724 
01725 
01726 
01727 
01730 
01731 
01732 
01733 
01734 

01735 



n" P 
203532 
102633 

621653 

102726 
102765 
203472 
102670 
203533 
102633 
7^7572 
102670 
203534 
102633 
200030 
102670 
203535 
102633 
750004 
751100 
740040 
600361 



000000 

203536 
040001 
777774 
043507 
707552 
503416 
740200 
601714 

777750 
043507 
443447 
601721 
102015 
700042 
602046 
143447 
443460 
741000 
102015 
200000 
063461 
443461 
200000 
740010 
203433 
700042 
620000 

043433 



CALCTY 

LAC (MESS13 

JMS MSPRNT 

JMP* CALCTY 

/READ ALL STATUS ERROR TYPEOUT 
ERRRAR JMS ERSTP /STOP TaPE 

JMS TYRALL 

lac record 
jms oprint 

LAC (MESS2 

JMS MSPRNT 

707572 /RFAD "B* 

JMS OPRINT 

LAC (MESS3 

JMs MsprNj 

LAC WC 

JMS OPRINT 

LAC (MESS4 

JMS MSPRNT 

LAS 

SPAICLA /STOP ON ERROR? 

XX /YES 

jmp reworv 
/Wait for interrupt routine 
/synchronize processor tests 

WATINT 

LAC (JMP IRECO 

DAC 1 

LAW -4 

DAC WTCNTR /INITIALISE COUNTER FOR 5 SECONDS 

707552 /READ "A" 

and seven+3 /7000 
s2a /is function "move" 

jmp .+3 /no, 5 sec. ok 

law -30 /change counter 



/TYPE HEADER 

/TYPE OUT BLOCK NUMBER 

/TYPE "BLOCK" 

/TYPE OUT B 

/TYpE "STATUS B" 

/TYPE OUT WORD COUNT 

/TYPE "W.C." 



OAC WTCNjR 
ISZ FRSWAT 
JMP RESETO 
JMS SETIOX 



/to 45 sec. 
/first program wait? 
/no, restore ac and l 
/yes, set up 



ION /TURN ON PI 

JMP ISZTST /GO TO FjRST TEST 

RESETO D?M FRS W AT /INDICATE NOT FIRST WAIT 

ISZ PICNTR /COUNT PI COUNTER 

SKP /NOT ZERO 

JMS SETIDX /2ER0 

LAC 

DAC« PIDExl /SAVE OLD PC 

ISZ PIDEXi 

LAC 

RAL /RESTORE LINK 

LAC ACCUM /RESTORE AC 

ION /TURN ON PI 

JMP» /EXIT 
/INTERRUPT RETURNS HERE 
IRECD DAC ACCUM /SAVE AC 



PAGE 19 



RANDEX 



0TRE15 



31736 
017 3 7 
01740 
01741 
01742 
01743 
01?4<5 
01745 
01746 
01747 
01750 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 



707601 
7410 
601743 
707561 
6017*2 
707572 
043476 
221701 
740001 
503476 
741200 
4 417 01 
441701 
201701 
063462 
443462 
203435 
503373 
043435 
621701 



707601 /SKIP ON DTF 

SKP /NONE 

JMP .+3 /DtCTAPE FLAG 

707561 /SKIP ON ERROR FLAG 

JMP NDTSKP /NO DECTaPE FLAGS 

707572 /READ "B" 

dat sbrecd /save b 

lac* watint 

gma /compare flags set 

and sbrecd /against flags allowed 

sna /a!vy illegal? 



is? WATINT 
is? WaTINT 
LAC WATINT 
DAC» PIDEX2 
ISZ PIDEX2 
LAC BLKFND 
AND INDEP 
DAC BLKFND 
JMP* WATINT 
.EJECT 



/no, increment twice 
/yes, increment once 

/Save c(Watint) 
/more pointer 

/CLEAN UP 
/BLOCK NUMBER 

/FROM TAPE 
/EXIT 
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0176? 
01763 
01764 
01765 
01766 
01767 
01770 
01771 
0177? 
01773 
01774 
01775 
01776 
01777 
02000 
02001 
02002 
02003 
02004 
02005 
02006 
02007 
02010 
02011 
02012 
02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 
02024 
02025 
02045 
02045 



02046 
02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 
02063 
02064 



102726 
203537 
102633 
602005 
?! 
443507 
621766 
700012 
707601 
741000 
601777 
707561 
740001 
043476 
102726 
203540 
102633 
443476 
602007 
?0?54l 
102633 
203542 
102633 
441701 
750001 
043447 
621701 
000000 
777772 
043460 
202025 
043461 
202045 
043462 
622015 
002026 

002035 



750001 
042204 
142201 
142200 
442200 
442201 
602052 
202201 
740200 
740040 
750001 
342200 
740200 
740040 
442204 



ndtskp 



PTSTND 



LAC 
JMS 

JMP 
) 

ISZ 

JMP* 

IOF+10 

7076911 

SKP 

JMP .+3 

707561 

CMA 

OAC 

JMS 

LAC 
JMS 
IS? 

JMP 



JMS 
(MESS14 
MSPRNT 

PTSTNS 


WTCNTR 
PTSTND 



ERSTP /STOP TAPE 
/TYPE "PI" 



/YES, 
/SKIP 



/Waited 
/no. DO 

TURN OFF PI 
ON DTF 



LONG 

NEXT 



ENOUGH? 

TEST 



MSPRNT 
SBRECD 
PTSTNS+2 
PTSTNS LAC 

JMS MSPRNT 
LAC (MESS17 
JMS MSPRNT 
IS? WATINT 
CLA!CMA 
OAC FRSWAT 
JMP» WATINT 



/SKIp ON ERROR FlAG 

/no flags. store -1 
sbrecd /or if any flag 
erstp /stop tape 

(MESS15 

/TYPE "NO PI" 
/ANY DECTaPE FLAGS 
/YES 
(MESS16 

/TYPE "NO" 



/TYpE "DECTAPE SKIp" 



SETIDX 



PITBL 



LAW 

OAC 

LAC 

OAC 

LAC 

DAC 

JMP» 

.+1 

.LOC 




-6 

PICNTR 
PIT8L 
PIDEXi 
PIRTBL 
PIDEX2 
SETIOX 



PITBL+20 
PIRTBL .-10 

/PROCESSOR TESTS, RUN 



TEST 



/ISZ 
IS2TST 

DAC 

DZM 

DEM 

ISZ 

ISZ 

JMP 

LAC 

SZA 

XX 

CLAICMA 

TAD TESTi 

SZA 

XX 

ISZ TEST5 



TEST5 

TEST2 

TESTl 

TESTi 

TEST2 

.-2 

TEST2 



2.6 SECONDS 
CLAICMA 



WHILE WAITING FOR INTERRUPT 
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RANPEX 


2 6 5 


741000 


02066 


602051 


02(567 


101766 


(52070 


202201 


02071 


744002 


02^72 


740020 


02073 


740010 


02074 


740400 


02075 


740040 


02076 


740001 


02077 


343401 


02100 


342201 


02101 


740200 


02102 


740040 


02103 


442201 


02104 


602070 


02105 


101766 


02106 


202201 


02107 


744000 


02110 


742010 


02111 


742020 


02112 


741400 


02113 


740040 


02114 


740001 


02115 


343401 


02116 


342201 


02117 


740200 


02120 


740040 


02121 


442201 


0212? 


602106 


02123 


101766 


02124 


142203 


02125 


202203 


02126 


542203 


02127 


741000 


02130 


740040 


02131 


442203 


02132 


602125 


02133 


101766 


02134 


776200 


02135 


042200 


02136 


777600 


02137 


042201 


02140 


203543 


02141 


042202 


0214? 


202205 


02143 


042203 


02144 


745000 


02145 


202203 


02146 


062202 


02147 


442203 



0TRE15 

SKP 

JMP ISZTST+3 

JMS PTSTND 
/ROTATE 1 TEST - 3.9 SECONDS 
ROTiTS LAC TEST2 

CLLICML 

RAR 

RAL 

SNL 

XX 

CMA 

TAD ONE 

TAD TEST2 

S2A 

XX 

ISZ TEST2 

JMP ROTiTS 

JMS PTSTND 
/ROTATE 2 TEST - 3.9 SECONDS 
R0T2TS LAC TEST2 

CLL 

RTL 

RTR 

SZL 

XX 

CMA 

TAD ONE 

TAD TEST2 

SZA 

XX 

ISZ TEST2 

JMP ROT2TS 

JMS PTSTND 
/SAD TEST - 2.1 SECONDS 
SADTST DZM TEST4 

LAC TEST4 

SAD TEST4 

SKP 

XX 

ISZ TEST4 

JMP SADTST+i 

JMS PTSTND 
/JMS TEST - 3 SECONOS 
JMSTST LAW -1600 

OAC TESTl /1600 LOOPS 

LAW -200 

OAC TEST2 /200 JMS . 

LAC (6000 

DAC TEST3 /FIRST ADDRESS OF JMS 

LAC JMSCON 

DAC TEST4 

SKP!CLL 

LAC TEST4 

DAC» TEST3 
ISZ TEST4 
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KANDEX 


02150 


442202 


02151 


44221*1 


0215? 


602145 


02153 


202206 


02154 


06221*2 


P>21 5S 


606000 


0215* 


777600 


02157 


042201 


02160 


402140 


0216] 


042202 


0216? 


741000 


02163 


202202 


02164 


740001 


02165 


362202 


02166 


503375 


02167 


740200 


02170 


740040 


02171 


442202 


02172 


442201 


02173 


602163 


02174 


442200 


02175 


602136 


02176 


101766 


02177 


602046 


02200 


000000 


02201 


000000 


0220? 


000000 


02203 


000000 


02204 


000000 


02205 


106000 


02206 


602156 


02207 


000000 


02210 


102225 


02211 


203377 


02212 


243506 


02213 


707545 


02214 


101701 


02215 


500000 


02216 


602336 


02217 


750001 


02220 


063467 


02221 


063445 


02222 


102244 


02223 


602211 


02224 


622207 


02225 


000000 


02226 


143436 


02227 


203430 


02230 


043443 


02231 


203453 


02232 


503443 


02233 


750200 


02234 


602242 



DTRE15 

IS? TEST3 

IS? TEST2 

JMP .-5 

LAC RETJMP 

OAC« TEST3 

JMP 6000 
JMPRET LAW -2P10 

DAD TEST? 

XCT JMSTST+4 

DAC TEST3 

SKP 

LAC TEST3 

CMA 

TAD* TEST3 

AND MASK 

SZA 

XX 

ISZ TEST3 

IS? TEST2 

JMP .-10 

IS? TESTi 

JMP JMSTST+2 

JMS PTSTND 

JMP IS2TST 
TESTl 
TEST2 
TEST3 
TEST4 
TEST5 

JMSCON JMS 6000 

RETJMP JMP JMPRET 

/REWIND ALL SELECTED DRIVES TO REVERSE END ZONE 
REPOSI 

JMS RSFDRV /RESET POINTERS FOR FIRST DRIVE 

LAC MOVBAK /GET MORE BACKWARDS 

XOP UNFUNC /COMBINE WITH UNIT NUMBER 

707545 /CLEAR AND LOAO A 

JMS WATINT /WAIT 

500000 /EXPECT END 20NE AND EF 

JMP MOVER /MOVE ERROR (INCORRECT STATUS) 

CLA!CMA 

dac» positn /indicate end ?one 
dac« direct /and backwards 
jms chngor /set up next drive 
jmp reposj+2 /rewind next drive 
jmpe repo s i /all drives in end zone, exit 

/Reset current drive pointer to first oRive selected 

RSFDRV 

DZM CDRIVE /ZERO CURRENT ORIVE 

LAC TWOHUN 

DAC COMBIT /SET UP COMBIT 

LAC MSBITS 

AND COMBIT 

SZAJCLA /IS THIS DRIVE SELECTED 

JMP RSFDRl /YES, SET POINTER 
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RANDE* 



0TRE15 



02235 
02236 
02237 
02240 
02241 

02242 
02243 

02244 
02245 
02246 
02247 

02250 
022 5 1 
02252 
02253 
02254 
02255 
02256 
02257 

02260 
022 6 1 

02262 



02263 
02264 
02265 
02266 
02267 
02270 
02271 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02301 
02302 
02303 
02314 
02314 
02325 
02325 
02336 

02336 
02337 
02340 
02341 
02342 
02343 



203443 
744020 
4 3 4 4 3 
443436 
602231 

102263 
622225 

000000 
203443 
744020 
740400 
602254 
1 222 5 
442244 
622244 
043443 
443436 
503453 
751200 
602245 
102263 
622244 



000000 
203436 
744020 
740020 
742020 
043506 
203436 
342303 
043467 
203436 
342314 
043445 
203436 
342325 
043451 
622263 
002304 

002315 

002326 



102340 
602211 

000000 

102726 
102734 
707572 



LAC COMBIT 

CLL!R A R /MOVf DRIVE Bl T RIGHT 

qAC COMBIT 

ISZ CDrIvE /INCREMENT DRIVE NuMBEr 

jmp rsfdrv+4 
/have found first drive selected 
rsfdrl j ms gnptrs /generate control pointers 

jmp* rsfdrv /exit 
/Select next drive or reset to first and skip 

CHNGOR 

LAC COMBIT /GET DRIVE BIT 

CLL!RAR /MOVE RIGHT 

SNL /CHECKED ALL DRIVES 

JMP .+4 /NO 

JMS RSFDRV /YeS RESET TO FIRST 

ISZ CHNGDR /INCREMENT 

JMP» CHNGOR /ANO EXIT 

DAC COMBIT 

ISZ CDRIVE 

AND MSBITS 

SNAlCLA /THIS DRIVE SELECTED? 

JMP CHNGDR+1 /NO 

JMS GNPTRS /GENERATE DRIVf POINTERS 

JMP« CHNGDR /EXIT 

/GENERATE LAST RECMRD, DlRECTjON AND UNIT NUMBER 
/POINTERS FOR DECTAPE FUNCTIONS 
GNPTRS 

LAC CDRIVE /GET ORIVE NUMBER 

CLLIRAR 

par 

RTR /REPOSITION FOR STORAGE 

DAC UNFUNC /IN UNIT FUNCTION REGISTER 

LAC CDRIVE 

TAD PNTRS 

DAC POSITN 

LAC CDRIVE 

TAD PNTRS + H 

DAC DIRECT 

LAC CDRIVE 

TAD PNTRS+22 

DAC LSTBLK 

JMP* GNPTRS 
PNTRS .+1 

.LOC .+10 

.+1 

.LOC .+10 

.♦1 

.LOC .+10 
/MOVE ERROR 
MOVER JMS .+2 

JMP REPOSI+2 



JMS eRSTP /STOP TAPE 

JMS TYM VE /TYPE OUT HEADER 

707572 /READ «B» 



/SET UP POSITION 



/DIRECTION AND 



/LAST BLOCK BLOCK POINTERS 
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RANDEX 


0TRE15 


02344 


102670 


JMS OPRINT /TYPE OUT B 


02345 


203544 


LAC (MESS3 


02346 


102633 


JMS MSPRNT /TYPE "STaTUS p." 


02347 


75P0F4 


LAS 


02351? 


751100 


SPAICLA 


02351 


740040 


XX 


02352 


622340 


JMP, MOVER+2 
/SEARCH ROUTINE - FINO BLOCK INqICATEO 
/BY THE CONTENTS OF "RECORD" IN THE OlREcTlON 
/INDICATED BY "DIRFLG", 0-FWD, -1-8KWD 


02353 


000000 


SEARCH 


02354 


203446 


LAC DIRFLG 


02355 


754200 


S2A:CLA!CLL /FORWARD? 


02356 


740002 


CML /NO, BACKWARD 


02357 


203425 


LAC THREE /COMPUTE 


02360 


741400 


S2L /TURN 


02361 


602364 


JMP .+3 /AROUND 


02362 


740001 


CMA /POINT 


02363 


343401 


TAD ONE /FOR 


02364 


343472 


TAD RECORD /DECTaPE 


02365 


740001 


CMA /SEARCH 


02366 


343401 


TAD ONE /AND 


02367 


043500 


DAC TAPONT /STORE 


02370 


203446 


LAC DIRFLG 


02371 


751200 


SNAICLA /FWD OR BKWD? 


02372 


203371 


LAC FTYTHO /BKwD <40,000) 


02373 


343412 


TAD SEAFOR /SEARCH FORWARD 


02374 


343506 


tad unfunc /combine in unit number 


02375 


707545 


707545 /CLEAR AND LOAD "A" 


02376 


203372 


LAC IDC0N /8LKFND 


02377 


040031 


DAC CA /SET UP CA 


02400 


750001 


CLAJCMA 


02401 


043434 


OAC BLKFLG /SET UP BLKFLG 


02402 


101701 


JMS WATINT 


02403 


000100 


100 /0TF 


02404 


602503 


JMP SRE2TS /ERROR, SEE IF END ZONE 


02405 


102441 


JMS SRCONT 


02406 


602412 


JMP SRTARN /BLOCK = BLOCK FOUND 


02407 


602412 


JMP SRTARN /GONE PAST BLOCK 


02410 


707554 


707544+10 /CLEAR AC, XOR A 


024H 


602402 


JMP .-7 /HAVEN'T REACHED BLOCK YET 


02412 


707552 


SRTARN 707552 /READ "A" 


02413 


740001 


CMA 


02414 


503432 


AND TYTHOU /MOTION BIT 


02415 


343371 


TAD FTYTHO /40»000 


02416 


707544 


707544 /XOR "A" (TURN AROUND) 


02417 


203472 


LAC RECORD 


02420 


740001 


CMA 


02421 


343401 


TAD ONE 


02422 


043500 


DAC TAPONT /SET UP TaPONT 


02423 


750001 


CLA!CMA 


02424 


043434 


DAC BLKFLG /AND BLKFLG 


02425 


101701 


JMS WATINT /WAIT 


02426 


000100 


100 /OTF 


02427 


602562 


JMP SRHERR /ERROR 



page: ?5 


RANDE> 


«2 4 30 


102441 


02431 


622353 


0243? 


602562 


32433 


750001 


1*2434 


343434 


02435 


751200 


0243ft 


602533 


02437 


707544 


1*2440 


602425 


02441 


0000(10 


3 2 4 4 2 


443434 


02443 


741000 


02444 


60?46l 


02445 


707552 


02446 


503371 


02447 


750200 


02450 


740001 


02451 


741200 


02452 


343401 


02453 


343470 


02454 


740001 


02455 


343401 


02456 


343435 


02457 


750200 


02460 


602562 


02461 


203435 


02462 


043470 


02463 


343500 


02464 


741200 


02465 


622441 


02466 


442441 


02467 


755100 


02 4 70 


740002 


02471 


707552 


02472 


503371 


02473 


741400 


02474 


602500 


02475 


750200 


02476 


442441 


02477 


622441 


02500 


751200 


02501 


442441 


02502 


622441 


02503 


707572 


02504 


74?0l0 


02505 


754100 


02506 


602562 


02507 


203500 


02510 


7401PH 


02511 


602515 


02512 


343376 


02513 


750100 


02514 


602530 



DTRE15 



/CHECK RELATION OF 9L0CK 
/FOUNo BLOCK, exit 



JMS SRcONT 

jmp* Search 
jmp srherr 

CLA!CMA 

TAD RLKFLG 

SNAICLA /READ ? BLOCK NUMBERS 

JMP SRCMOO /YES, CHANGE TO CONTINUOUS MODE 

707544 /XOR INTO "A" (CLEAR FLAGS) 

JMP .-13 
/FIND RELATION OF ^LOCk FOUND TO BLOCK 
/SOUGHT AND TESy BLOCK NUMBERS TO BE CONSECUTIVE 
SRCONT 

IS? RLKFLG /FIRST BLOCK NUMBER? 

SKP /NOT FIRST 

JMP SRFBLK . /FIRST, JUST SaVe IT 

707552 /READ "A"'" 

AND FTYTHO Z40.000 

SZA!CLA /BACKWARDS 

CMA /YES, -1 

SNA 

TAD ONE /FORWARD, +1 

TAD PREBLK /LAST BLOCK +1 OR -1 

CMA 

TAD ONE 

TAD BLKFNO 

SZa.'CLA /BLOCKS CONSECUTIVE 

jmp srherr /no, error 
srfblk lac blkfnd 
dac preblk 
tad tapont 
sn* /Found block? 

JMP* SRCONT /yES 

IS? SRCONT 

SPa!CLa!CLL /BLKFND GREATER 

CML /NO, LESS 
707552 /READ A 
AND FTYTHO /40.000 

SZL 

JMP .+4 

SEA.CLA /IF FORWARD HAVE GONE PaST 
TSZ'SRCONT /BACKWARD 

JMP» SRCONT 
SNA!CLA 
IS? SRCONT 
JMP» SRCONT 
SREZTS 707572 /READ "B" 

RTL /MOVE EZ BIT INTO 
SMa!CLa!CLL /END ZONE INTERRUPT? 

JMP SRHERR /NO» SOME OTHER 

LAC TAPONT 

SMA /BLOCK OR 1 
JMP .+4 
TAO MBLOCK 

SMA!CLA /BLOCK 1077 OR 1100? 
JMP .+14 /NO, TURN AROUND 
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R a n n E" * 



DTRE15 



02515 
2 5 1 6 
025i7 
02520 
02521 
0?5?? 
02523 
0?5?4 
02525 

02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
0?540 
02541 
02542 
02543 
02544 
02545 
02546 
02547 
02550 
02551 
02552 
02553 
02554 
02555 
02556 
02557 
02560 
02561 

02562 
02563 
02564 
02565 
02566 
02567 
02570 
02571 
02572 
02573 
02574 
02575 
02576 
02577 
02600 
02601 
02602 



7 5 P , V 4 

7 4 2 $ i a 

74P01 
7 5 010 
6 2 412 
2 3 4 3 ? 
707544 
1 (3 1 7 '/l 1 
5 00 
60256? 
602412 
443^34 
602562 
602412 
203435 
740001 
343401 
343472 
741100 
602543 
740001 
343401 
040030 
203423 
707544 
101701 
000100 
602562 
203435 
740001 
343401 
343472 
750200 
602562 
203423 
707544 

622353 

102726 
102743 
203472 
102670 
203545 
102633 
203446 
751200 
602575 
103100 
741000 
103104 
102714 
203435 
102670 
203546 
102633 



I AS 
RTL 
RAl 

smaicla / n f.w Format tape? 

jmp srtarn /yes, turn around 

lac tythou /20,000 

707544 'xor into "a" (go again) 

JMS WaTINT /WAIT FOR E2 

500000 /ERROR, END ?ONE 

JMP SRHEfR 

JMP SRTARN 

ISZ FfLKFLG 

JMP SRHERR 

JMP SRTaRN 



SRCMOO 



CMA 

TAD ONE 

TaD RECORD 

SPA 

JMP .+3 

CMA 

TAD ONE 



LAC BLKFND 
/IN NUMBER 
/OF 



/not first Interrupt 
/e? is error 
/turn around 

/FIND DIFFERENCE 



/BLOCKS 



/MAKE NEGATIVE 



/FOR WORD COUNT 

/10.000 (CONTINUOUS) 



/NOT NORMAL INTERRUPT 



DAC WC 
LAC TENTHO 

707544 /XOR INTO "A" 
JMS WATINT 
100 /DTF 
JMP SRHERR 
LAC BLKFND 
CMA 

TAD ONE 
TAD RECORD 

SZAtCLA /CORRECT BLOCK? 
JMP SRHERR /NO, ERROR 

LAC TENTHO /10.000 

707544 /XOR INTO "A M (CLEAR CONT) 
JMP» SEARCH 
/SEARCH ERROR TYPEOUT 
SRHERR JMS ERSTP /STOP TAPE 

JMS TYSRCH /TYPE HEADER 

LAC RECORD 

JMS OPRINT 

LAC (MESSia 

JMS'MSPRNT 

LAC OIRFLG 

SNA;CLA 

JMP .+3 

JMS TYBKW /TYPE BACKWARDS 

SKP 

JMS TYFWD /TYPE FORWARD 

JMS CRLF 

LAC BLKFND 

JMS OPRINT /TYPE BLOCK FOUND 

LAC (MESS19 

JMS MSPRNT /TYPE "BLOCK FOUND! 



/TYPE BLOCK NUMBER 



/TYPE "BLOCK WANTED 



PAGE ?7 



RANOfX 



DTRF15 



fi?6?l3 
26 4 
02605 

02606 
3 2 6 7 

02*10 
0?61 1 
f 261 ^ 
02613 
02614 
2 6 1 S 
fr^2f- 1 6 
??*17 
02620 
02621 
02622 
02623 
02624 

0262 K 
02626 
.02627 

0?630 
02631 
02632 

02633 
02634 
02635 
32636 
02637 
02640 
02641 
026«2 
02643 
02644 
02645 
02646 
02647 
02650 
02651 
02652 
02653 
02654 
02655 
02656 
02657 
0266P 
02661 
02662 
02663 
02664 
02665 
02666 
02667 



750001 
34 3 4 5 4 
751100 
602613 
203470 
102670 
203547 
102633 
4 4 3 4 3 4 
7 4 

2034 34 
102670 
203550 
102633 

707572 

102670 

203551 
102633 
750004 
751100 
740040 
443457 
600361 
602354 

000000 

503552 
043466 
750004 
740010 
751100 
622633 
223466 
742020 
742020 
742020 
74202C 
740020 
102661 
543411 
622633 
223466 
102661 
543411 
622633 
443466 
602636 

000000 

503411 
700406 
700401 
602664 
700402 
622661 



/TYPE; PREVIOUS BLOCK 

/TYPE "LAST BLOCK" 

/TYPE OUT QUANTITY OF BLOCKS 

/TYPE "BLOCKS READ" 

/TYPE OUT b 

/TYPE "STATUS B" 



CLA ! CMA 

t a rlkelg 
spa :cla 

JMp .+5 
LAC PREBLK 

JMS oprint 

LAC CMESS20 

JMS MSPRNT 

IS? 8LKFLG 

NOP 

LAC HLKFLG 

JMS OPRINT 

LAC (MESS21 

JMS MSPRNT 

707572 /READ "B" 

JMS OPRINT 

LAC (MESS3 

JMS MSPRNT 

LAS 

SPA!CLA /HALT ON ERROR? 

XX /YES 

IS? PASFLG /SECOND ERROR? 

JMP REWORV /YES, REWIND DRIVE 

JMP SEARCh+1 /NO. SEARCH AgAIN 

/TYPE TEXT ROUTINE 
MSPRNT 

AND (7777 

DAC PNTR4 

LAS 

RAL 

SPAjCLA 

JMP» MSPRNT 

LAC« PNTR4 

RTP 

RTR 

RTR 

RTR 

RAR 

JMS TYPE 

SAD RUBOUT 

JMP« MSPRNT 

LAC« PNTR4 

JMS TYPE 

SAD RUBOUT 

JMP» MSPRNT 

IS2 PNTR4 

JMP MSPRNT+3 
TYPE 



AND 


RUBOUT 


TLS 




TSF 




JMP 


.-1 


TCF 




JMP« 


TYPE 



/TYPE GUT CONTENTS OF AC IN OCTAL 
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RiNiOE* 



DTRF15 



9I?*7P 00ii0?P O p RINT 

02671 0435T4 OAT TEM4 

0267? 7503P4 LAS 

02673 74f*ai0 RAL 

02674 751100 SPA;CLA 

02675 622670 JMP* OPRINT 

02676 777772 LAW -6 

02677 (Z43441 OACCNTRl 
0?700 203504 LAC TEM4 
02701 7 4 4 C 1 R A L ! C L L 
0270? 74PVM0 R AL 

02703 74?0i3 RTL 

02704 043504 OAC TEM4 

02705 503413 AND SEVEN 

02706 243363 *OR ASCI I 

02707 102661 JMS TYPE 

02710 203504 LAC TEM4 

02711 443441 IS? CNTRl 

02712 6027P2 JMP .-10 

02713 622670 JMP* OPRINT 

02714 000000 CRLF 

02715 750004 LAS 

02716 740010 RAL 

02717 751100 SPAjCLA 

02720 622714 JMPe CRLF 

02721 760215 LAW 215 

02722 102661 JMS TYPE 

02723 760212 LAW 212 

02724 102661 JMS TYPE 

02725 622714 JMP» CRLF 

/stop tape on error, leave flags set 

02726 000000 FRSTP 

02727 707552 707552 /RFAD "A" 

02730 503432 AND TYTHOU /STOP 

02731 343411 TAD RUBOUT /DON'T 

02732 707544 707544 /XOR INTO "A" 

02733 622726 JMP» ERSTP 

/TYPE "MOVE" AND DIRECTION 

02734 000000 TYMoVE 

02735 103040 JMS TyDRV 

02736 203553 LAC (MESS22 

02737 102633 JMS MSPRNT 

02740 103056 JMS TYQIR 

02741 102714 JMS CRLF 

02742 622734 JMP» TYMOVE 

/TYPE SEARCH DIRECTION AND MODE 

02743 000000 TYSRCH 

02744 103040 JMS TYDRV 

02745 102714 JMS CRLF 

02746 203554 LAC (MESS23 

02747 102633 JMS MSPRNT 

02750 103056 JMS TYQIR 

02751 103070 JMS TYMODE 

02752 102714 JMS CRLF 

02753 622743 JMP* TYSRCH 



CLEAR DTF AND EF 
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RAmDEX 


DTRE15 

/TYPE "READ DATA" nIREcTION A ND MODE 


1*2754 


00 


TYRDAT 


v'275* 


103040 


JMS TYORV 


02756 


102714 


JMS CRLF 


02757 


103020 


JMS TYREAO 


0276i? 


103030 


JMS TYOATA 


02761 


1031356 


JMS TYOIR 


<*276? 


1030 7 


JMS TYMODE 


2 7 63 


102714 


JMS CRLF 


1*2764 


622754 


JMP* TYRDAT 
/TYPE "READ ALL" DIRECTION AND MODE 


32765 





TYRALL 


02766 


1030 4 


JMS TYDRV 


02767 


102714 


JMS CRLF 


02770 


103020 


JMS TYREAO 


02771 


103034 


JMS TYALL 


02772 


103056 


JMS TYDIR 


02773 


103070 


JMS TYMODE 


02774 


10^714 


JMS CRLF 


02775 


622765 


JMP« TYRALL 
/TYPE "WRITE DATA" DIRECTION AND MODE 


02776 


000000 


TYWDAT 


P2777 


103040 


JMS TYORV 


03000 


102714 


JMS CRLF 


03001 


103024 


JMS TYWRIT 


0300? 


103030 


JMS TYDATA 


03003 


103056 


JMS TYDIR 


03004 


103070 


JMS TYMODE 


03005 


102714 


JMS CRLF 


03006 


622776 


JMP« TYWDAT 
/TYPE "WRITE ALL" DIRECTION AND MODE 


03007 


00000 


TYWALL 


03010 


103040 


JMS TYDRV 


03011 


102714 


JMS CRLF 


03012 


103024 


JMS TYWRIT 


03013 


103034 


JMS TYALL 


03014 


103056 


JMS TYDIR 


03015 


103070 


JMS TYMODE 


03016 


102714 


JMS CRLF 


03017 


623007 


JMP* TYWALL 
/TYPE "READ" 


03020 


000000 


TYREAD 


03021 


203555 


LAC CMESS24 


03022 


102633 


JMS MSPRNT 


03023 


623020 


JMP« TYREAD 
/TYPE "WRITE" 


03024 


000000 


TYWRIT 


03025 


203556 


LAC (MESS25 


03026 


102633 


JMS MSPRNT 


03027 


S23024 


JMP» TYWRIT 
/TYPE "OATA" 


03 030 


000000 


TYDATA 


03031 


203557 


LAC (MESS26 


03032 


102633 


JMS MSPRNT 


03033 


623030 


JMP. TYOATA 



PAGE 



E 30 


RAN^EX 


DTRF15 

/TYPE "ALL" 




3^34 


d tf P 


TYALL p> 




3035 


?0356 ! /> 


LAC (MESS27 




vl 3 3 ft 


1.02633 


JMS MSPKNf 




03037 


623034 


JMPo TYALL 








/TYPF nRIVE ANP NU 


M BER 


03H40 


000^0 


TYDRV i>, 




03041 


750004 


LAS 




03042 


74001 


RAL 




3 4 3 


751100 


SPA ;CLA 




03«44 


6 2 3 4 


JMP* TYDRV 




03^45 


20 3 5 ft 1 


LAC (MESS28 




03046 


102633 


JMS MSPRNT 




03047 


203436 


LAC CDRIVE 




03050 


741200 


SNA 




03051 


343422 


TAD TEN 




03052 


243363 


XOR ASCII 




03053 


102661 


JMS TYPE 




03054 


102714 


JMS CRLF 




03055 


623040 


JMP» TYDRV 








/TYPE "FORWARD" OR 


"BACKWARD" 


03056 


000000 


TYOIR 




03057 


707552 


707552 /READ ' 


"A" 


03060 


503371 


AND FTYTHO 


Z400000 


03061 


741200 


SNA 




0306? 


603065 


JMP .+3 




03063 


203562 


LAC (MESS29 


/BACKWARD 


03064 


741000 


SKP 




03065 


203563 


LAC (MESS30 


/FORWARD 


03066 


102633 


JMS MSPRNT 




03067 


623056 


JMP* TYDIR 








/TYPE "CONTINUOUS" 


IF NOT NORMA 


03070 


000 000 


TYMODE 




03071 


707552 


707552 /READ ' 


'A" 


03072 


503423 


AND TEMTHO 


/10000 


03073 


741200 


SNA 




03074 


623070 


JMP« TYMODE 




03075 


203564 


LAC (MESS31 




03076 


102633 


JMS MSPRNT 


/TYPE "COI 


03077 


623070 


JMP* TYMODE 
/TYPE "BACKWARD" 




03100 


000000 


TYBKW 




03101 


203565 


LAC (MESS29 




03102 


102633 


JMS MSPRNT 




03103 


623100 


JMP* TYBKW 
/TYPF "FORWARD" 




03104 


000000 


TYFWD 




03105 


203566 


LAC (MESS30 




03106 


102633 


JMS MSPRNT 




03107 


623104 


JMP» TYFWD 




03110 


215212 


MESSl 215212 /CR,LF 




03111 


316317 


316317 /N,0 




03112 


240324 


240324 /SP.T 




03113 


322301 


322301 /R.A 




03114 


316323 


316323 /N.S 
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RAMDEX 



0TRE15 



03115 
03116 
03117 
0312? 
03121 
03122 
03123 
03124 
03125 
03126 
03127 
03130 
03131 
03132 
03133 
0313" 
03135 
03136 
03137 
03140 
03141 
03142 
03143 
03144 
03145 
03146 
03147 
03150 
03151 
03152 
03153 
03154 
03155 
03156 
03157 
03160 
03161 
03162 
03163 
03164 
03165 
03166 
03167 
03170 
03171 
03172 
03173 
03174 
03175 
03176 
03177 
03200 
03201 
03202 
03203 



32031 7 
3 2 2 3 ? 4 
323240 
3 23 3 5 
3143^5 
303324 
3.35304 
215212 
377000 

240302 
314317 
303313 
215212 
3 7 7 00 
240323 
324301 
324325 
323240 
302215 
212377 
240327 
256303 
256215 
212377 
304301 
324301 
240305 
322322 
317322 
215212 
377000 
240303 
317322 
215212 
377000 
240311 
316303 
215212 
377000 
240301 
304304 
322323 
240317 
306240 
311316 
303215 
212377 
303313 
323325 
315 24 

305322 
322317 
322215 
212377 
240322 



MESS2 



MESS3 



MESS4 



MESS5 



MESS6 



MESS7 



MESS8 



MESS9 



MESS10 



320317 


/P.O 


322324 


/R.T 


323240 


/S.SP 


323305 


/S.E 


314305 


/L.E 


303324 


/C.T 


305304 


/E.O 


215212 


/Cr.LF 


377000 


/R.O. 


240302 


/SP.B 


314317 


/L.O 


303313 


/C.K 


215212 


/CR.LF 


377000 


/R.O. 


240323 


/SP.S 


324301 


/T, A 


324325 


/T.U 


323240 


/S.SP 


302215 


/B.CR 


212377 


/LF.R.O. 


240327 


/SP.W 


256303 


/.c 


256215 


/»CR 


212377 


/LF.rO 


304301 


/O.A 


324301 


/T,A 


240305 


/SP.F 


322322 


/R.R 


317322 


/O.R 


215212 


/CP.LF 


377000 


/RO 


240303 


/SP.C 


317322 


/O.R 


215212 


/CR.LF 


377000 


/RO 


240311 


/SP.l 


316303 


/N.C 


215212 


/CR.LF 


377000 


/RO 


240301 


/SP,A 


304304 


/O.D 


322323 


/R'S 


240317 


/SP.O 


306240 


/F.SP 


311316 


/l.N 


303215 


/C.CR 


212377 


/LF.RO 


303313 


/C.K 


323325 


/S,U 


315240 


/M.SP 


305322 


/E.R 


322317 


/R.O 


322215 


/R.CR 


212377 


/LF.RO 




240322 



/SP.R 
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RANnEX 


03204 


305326 


«?i 3 P B 


24 3 7 7 


03206 


24031 4 


03?07 


256320 


03210 


256302 


03211 


256215 


03212 


212377 


(13213 


24C\303 


03214 


310305 


03215 


303313 


03216 


240323 


03217 


325315 


03220 


377000 


03221 


240303 


03222 


301314 


03223 


303325 


03224 


314301 


03225 


324305 


0322ft 


304377 


03227 


215212 


03230 


320256 


03231 


311256 


03232 


240377 


03233 


215212 


03234 


316317 


03235 


240320 


03236 


256311 


03237 


256377 


03240 


240316 


03241 


317377 


03242 


240304 


03243 


305303 


03244 


324301 


03245 


320305 


03246 


240323 


03247 


313311 


03250 


320215 


03251 


212377 


03252 


240302 


03253 


314317 


03254 


303313 


03255 


240327 


03256 


301316 


03?57 


324305 


03260 


304377 


03261 


240302 


03262 


314317 


03263 


30331.3 


03264 


240306 


03265 


317325 


03266 


316304 


03267 


215212 


03270 


377000 


03271 


240314 


03272 


301323 



DTRE15 



MESSll 



MESS12 



MESS13 



MESS14 



MESS15 



MESS16 
MESS17 



MESS18 



MESS19 



MESS20 



3053?6 


/E.V 






240377 


/SP,RO 








240314 


/SP, 


,L 


256320 


/..P 






2563*2 


/. ,S 






256215 


/. .Cr 






212377 


/LF,r 






i 


240303 


/SP, 


,C 


310305 


/H.E 






303313 


/C.K 






240323 


/SP.S 






325315 


/U.M 






377000 


/RO 








240303 


/SP, 


,C 


301314 


/A,L 






303325 


/C,U 






314301 


/L,A 






324305 


/T.E 






304377 


/D.RO 








215212 


/CR, 


,L 


320256 


/P.. 






311256 


/I.. 






240377 


/SP.RO 








215212 


/CR, 


Li 


316317 


/N.O 






240320 


/SP,P 






256311 


/..I 






256377 


/. .RO 






1 


240316 


/SP, 


,N 


317377 


/O.RO 








240304 


/SP, 


,D 


305303 


/E.C 






324301 


/T»A 






320305 


/P.E 






240323 


/SP»S 






313311 


/K. I 


* 




320215 


/P.CR 






212377 


/LF.RO 








240302 


/SP, 


,B 


314317 


/L.O 






303313 


/C.K 






240327 


/SP.W 






301316 


/A,N 






324305 


/T,E 






304377 


/D.RO 








240302 


/SP, 


B 


314317 


/L.O 






303313 


/C.K 






240306 


/SP.F 






317325 


/O.U 






316304 


/N.D 






215212 


/CR.LF 






377000 


/RO 








240314 


/SP, 


L 


301323 


/A.S 
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RANOEX 



DTRE15 



03273 
3274 
03275 
("3276 
03277 
03300 
'13301 
03302 
03303 
03304 
03305 
03306 
«*3307 
03310 
03311 
03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 
0332? 
03323 
03324 
03325 
03326 
03327 
03330 
03331 
03332 
03333 
03334 
03335 
03336 
03337 
03340 
03341 
03342 
03343 
03344 
03345 
{13346 
03347 
03350 
03351 
0335? 
03353 
03354 
03355 
03356 
03357 
03360 
03361 



3 2 4 ? 4 
302314 
317303 
313215 
212377 
240302 
314317 
303313 
323240 
322305 
301304 
215212 
377000 
215212 
315317 
326305 
240377 
323305 
301322 
303310 
240377 
322305 
301304 
240377 
327322 
311324 
305240 
377000 
304301 
324301 
240377 
301314 
314240 
377000 
215212 
215212 
304322 
311326 
305240 
240377 
303301 
303313 
327301 
322304 
240377 
306317 
322327 
301322 
304240 
377000 
303317 
316324 
311316 
325317 
325323 



MESS?i 



MESS22 



MESS23 



MESS24 



MESS25 



MESS26 



MESS27 



MESS28 



MESS29 



MESS30 



MESS31 



324240 
302314 
317303 
313215 
?1?377 

314317 
303313 
323240 
3223*5 

301334 
215212 
377000 

315317 
326305 
240377 

5 

301322 
303310 
240377 

t 

301304 
240377 

311324 

305240 
377000 

324301 
240377 

i 

314240 
377000 
i 

215212 
304322 
311326 
305240 
240377 

303313 
327301 
322334 
240377 

) 

322327 
301322 
304240 
377000 

L 

316324 
311316 
325317 
325323 



/T.SP 

/B,C 

/0-C 

/K,CR 

/LF.CR 

240302 

/L.O 

/C.K 

/S,SP 

/R.E 

/A,0 

/CR.LF 

/RO 

21*212 

/M,0 

/V.E 

/SP.RO 

323305 

/A.R 

/C.H 

/SP.RO 

322305 

/A.D 

/SP.RO 

327322 

/I.T 

/E.SP 

/RO 

304301 

/T,A 

/SP.RO 

301314 

/L.SP 

/RO 

215212 

/CR.LF 

/D,R 

/I.V 

/E.SP 

/SP.RO 

302301 

/CK 

/W«A 

/R.O 

/SP.RO 

306317 

/R.W 

/A.R 

/O.SP 

/RO 

303317 

/N>T 

/I.N 

/U'O 

/U,S 



/SP.R 



/CR.LF 



/S.E 



/R.E 



/W.R 



/D.A 



/A.L 



/CR.LF 



/B.A 



/F.O 



/CO 
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R4NHEV 


'336? 


74P377 


03363 


7 6 


03364 


013 7 7 


0^365 


005000 


03366 


00?3l5 


03367 


0l c ;i400 


03370 


005000 


(=13371 


040000 


0337? 


003435 


03373 


001777 


^3374 


00?326 


03375 


017777 


03376 


776700 


03377 


060400 


03400 


400000 


03401 


000001 


034.0? 


001000 


03403 


00?304 


03404 


004402 


03405 


003777 


03406 


004377 


03407 


004000 


03410 


060400 


03411 


000377 


03412 


021400 


03413 


000007 


03414 


000070 


03415 


000700 


03416 


007000 


03417 


070000 


03420 


700000 


03421 


000077 


0342? 


000010 


03423 


010000 


03424 


000037 


03425 


000003 


03426 


003000 


03427 


013000 


03430 


000200 


03431 


012000 


03432 


020000 


03433 


000000 


03434 


000000 


03435 


000000 


03436 


000 


03437 


000000 


03440 


000000 


03441 


000000 


0344? 


000000 


03443 


000000 


03444 


000000 


03445 


000000 


03446 


000000 



0TRE15 

240377 
/CONSTANTS 

ASCII ?60 

BFiLOC 

BF2L0C 

0IRT8L 

FIFTHO 

FIVTHO 

FTYTHO 

IOCON PLKFNO 

INDEP 1777 

LSTTBL 

MASK 17777 

M8L0CK 

MOVBAK 

MUCH0 400000 

ONE 1 

ONETHO 

POSTBL 

RAOLOC 

RBFLOC 

RBUFND 

RBUFST 

REWIND 

RUROUT 

SEAEOR 

SEVEN 7 
70 
700 
7000 
70000 
700000 

SEVSEV 

TEN 10 

TENTHO 

TERSEV 

THREE 3 

TRETHO 

TRTETH 

TWOHUN 

TWVTHO 

TYTHOU 

/VARIABLES 

ACCUM 

BLKFLG 

BLKFNO 

CORIVE 

CKSUMR 

CNTR 

CNTRi 

COCNTR 

COMglT 

OATaSM 

DIRECT 

DIRFLG 



/SP.RO 



RUFFRS-i /CONSTANT FOR DATA STORE 
BUFFRS+400 /ADDRESS OF SECOND BUFFER 

PNTRS+12 /DIRECTION TABLE 
15000 /SEARCH TO WRITE CONT 

S000 

40000 /BACKWARD 

/MASK FOR BLOCK NUMBER 

PNTRS+23 /LAST BLOCK WRITTEN TaBLF 



•1-1100+1 /-NUMBER OF BLOCKS 



060400 



/MOVE BACKWARDS 



1000 

PNTRS+i 

rUFFRS+2 

RANBFR-i 

RANBFR+377 

RANBFR 

060400 

377 

021400 



/drive position table 

/LOCATION -x OF FIRST daTa WORD (READ ALL) 



/MASK FOR 10-17 



77 /MASK 

10000 /CONTINUOUS 

37 /MASK 

3000 /SEARCH TO READ 

13000 /SEARCH TO READ CONTINUOUS 

200 

12000 /SEARCH TO READ ALL CONTINUOUS 

20000 /GO, STOP 



/AC 








AT P. I 



/NUMBER OF BLOCK FOUND 

/CURRENT DRIVE NUMBER 

/CALCULATED CHECKSUM 
/EXTRANEOUS COUNTER 
/COUNTER FOR OPRINT 
/COMPARE ERROR FLAG 

/BIT POSITION FOR TEST AGAINST S.R. 

/SAVED DATA SUM 

/CONTAINS DIRECTION READ 

/INDICATES DIRECTION TO GO 
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RANDEX 



DTRE15 



03447 
-/ 3 4 5 (.^ 
03451 

33453 
03454 
33455 
03456 
03457 
03460 
03461 
0346? 
03463 
03464 
03465 
03466 
03467 
03470 
03471 
0347? 
03473 
03474 
03475 
03476 
03477 
03500 
0350 1 
03502 
03503 
03504 
03505 
03506 
03507 





000000 
000000 
000000 
000000 
000000 
0000P0 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
00 00 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
03510 
03511 
0351? 
03513 
03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 
03524 
03525 
03526 
03527 
03530 
03531 
03532 
03533 
03534 



FRSWAT 

FWDCHK 

LSTBIK 

LSTqRV 

MSBITS 

NUMBER 

NUMBLK 

06VERS 

PASFLG 

PICNTR 

PlOEXl 

PIDEX2 

PMTRi 

PNTR2 

PNTR3 

PNTR4 

POSITN 

PREBLK 

RAEFLG 

RECORD 

REVCHK 

RSQFLG 

SAVNUM 

SBRECD 

tally 

TAPONT 
TEM1 
TEM2 
TEM3 
TEM4 
TRECTR 
UNFUNC 
WTCNTR 

003110 
003126 
003133 
003141 
003413 
003145 
003126 
003154 
003160 
003164 
003126 
003133 
003141 
003126 
003174 
003203 
003206 
003213 
003221 
003126 
003133 



■ END 

• L 
»L 

• L 

• L 

• L 

• L 

• L 

• L 

• L 

• L 

• L 

• L 
*L 

• L 

• L 
*L 
*L 
oL 

• L 
»L 

• L 



/FORWARD CHECKSUM 

/LAST BLOCK WRITTEN POINTER 

/NEGATIVE OF LaST DRIVE SELECTED 

/HOLD UNIT BITS 

/STORE FOR MCOMOR 

/NUMBER OF BLOCKS WITH WHICH TO OPERATE 

/OBVERSE NUMBER 



/PI COUNTER 

/PI POINTER 

/PI POINTER 
/EXTRANEOUS POINTER 
/EXTRANEOUS POINTER 
/POINTER FOR MCOMOB 
/POINTER FOR MSPRNT 



/READ ALL ERROR FLAG 



/REVERSE CHECK FROM TAPE 



/STORE NUMBER OF BLOCKS 

/STATUS OF B 

/TALLY FOR MCOMOB 

/TURN AROUND POINT FOR SEARCH 

/TEMP STORAGE 
/FOR PaTGEN 
/SUBROUTINE 
/STORAGE FO R OPrINt 

/COUNTER FOR WRITE DATA CONTINUOUS 

/UNIT NUMBER 

/WAIT COUNTER 
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RaNOE* 



OTRE15 



?3535 


003141 


*L 


''3536 


601735 


*L 


^3-537 


003227 


»L 


C3540 


003233 


»L 


V 3541 


003240 


»L 


P-3542 


003242 


• L 


P3543 


006000 


oL 


03544 


003133 


»L 


03545 


003252 


• L 


03546 


003261 


• L 


F3547 


003271 


»L 


t?3555< 


003300 


»L 


P3551 


003133 


»L 


0355? 


007777 


*L 


03553 


003310 


*L 


03554 


003314 


*L 


03555 


003320 


*L 


03556 


003323 


• L 


03557 


003327 


*L 


03560 


003332 


• L 


03561 


003335 


• L 


03562 


003343 


• L 


03563 


003350 


• L 


03564 


003355 


*L 


03565 


003343 


• L 


03566 


003350 
SIZE=03567 


*L 
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ACCUM 


03433 


ASCI I 


03363 


BFlLOc 


033M 


RF2LOC 


03365 


RLKFLG 


03434 


BLKFND 


03435 


RUFFRS 


0044C0 


CA 


F00031 


CALCTY 


01653 


CDRIVE 


03436 


CHNGDR 


02244 


CKSTYP 


01647 


CKSUMR 


03437 


CLOF 


700004 


CLON 


700044 


CLSF 


700001 


CNTR 


03440 


CNTR1 


03441 


COCNTR 


03442 


COOATA 


00626 


COERRO 


00653 


COERRl 


00673 


COLOOP 


00640 


COMBIT 


03443 


CORT1R 


00763 


CRLF 


02714 


OATASM 


03444 


DIRECT 


03445 


DIRFLG 


03446 


OIRTBL 


03366 


EEM 


707702 


ERRCKS 


01602 


ERRRAR 


01657 


ERSTP 


02726 


EXIST 


00572 


FIFTHO 


03367 


FIVTHO 


03370 


FRSWAT 


03447 


FTYTHO 


03371 


FWOCHK 


03450 


GNPATR 


00444 


GNPTRS 


02263 


IDCON 


03372 


INOEP 


03373 


IRECO 


01735 


ISZTST 


02046 


JMPRFT 


02156 


JMSCON 


02205 


JMSTST 


02134 


KRR 


700312 


KSF 


700301 


LEM 


707704 


LOOP 


00501 


LSTBLK 


03451 


LSTORV 


03452 
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LSTTRL 03374 

MASK 03375 

MBLOCK 03376 

MCO-MOR 00467 

MESSl 03110 

■MESS1H 03203 

MESS11 03206 

MESS12 03213 

MESS13 03221 

MESS14 03227 

MESS15 03233 

MESS16 03240 

MESS17 03242 

MESS18 03252 

MESS19 03261 

MESS2 03126 

MESS20 03271 

MESS21 .03300 

MESS22 03310 

MESS23 03314 

MESS24 03320 

HESS25 03323 

MESS26 03327 

MESS27 03332 

MESS28 03335 

MESS29 03343 

MESS3 03133 

MESS30 03350 

MESS31 03355 

MESS4 03141 

MESS5 03145 

MESS6 03154 

MESS7 03160 

MESS8 03164 

MESS9 03174 

MOFPRO 00130 

MOFPRl 00145 

M0V8AK 03377 

MOVER 02336 

MSBITS 03453 

MSPRNT 02633 

MUCH0 03400 

MVDATA 00607 

NDOFRO 01214 

NDTSKP 01762 

NUMBER 03454 

NUMBLK 03455 

OSVERS 03456 

ONE 03401 

ONETHO 03402 

OPRINT 02670 

PASFLG 03457 

PATGEN 00417 
PCF 700202 

PICNTR 03460 



PAGE 3<5 RANHEX DTRE15 



PIDEXl 


03461 


PI0EX2 


03462 


PIRTRL 


02045 


PITBL 


02025 


PNTRS 


02303 


PNTR1 


03463 


PNTR2 


03464 


PNTR3 


03465 


PNTR4 


03466 


POSITN 


03467 


POSTRL 


03403 


PREBIK 


03470 


PREGEN 


00400 


PSA 


700204 


PSB 


700244 


PSF 


700201 


PTSTNQ 


01766 


PTSTNS 


02005 


RADCHK 


01540 


RAOLOC 


03404 


RAEFLG 


03471 


RALLTS 


01431 


RANBFrt 


004000 


RANDEX 


00100 


RANOl 


00516 


RAND? 


00527 


RAN03 


00540 


RANSEL 


00551 


RASERR 


01556 


RBFLOC 


03405 


RBUFNO 


03406 


RBUFST 


03407 


RCF 


700102 


RDBUFi 


01117 


ROCERR 


01314 


ROCMOD 


01221 


RDDATA 


00253 


RDSEO 


01070 


RDSWCH 


00123 


RDTAB 


00211 


RECORD 


03472 


REPOSI 


02207 


REREAD 


00272 


REREOA 


00325 


RESETD 


01721 


RETJMP 


02206 


REVCHK 


03473 


REWCK 


01034 


REWQRV 


00361 


REWIND 


03410 


ROTlTS 


02070 


R0T2TS 


02106 


RRB 


700112 


RSA 


700104 


RSB 


700144 
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RSF 


700101 


RSFORV 


02225 


RSFDRl 


02242 


RSGFLG 


03474 


RUROUT 


03411 


Rl 


00525 


R2 


00536 


R3 


00547 


SADTST 


02124 


SAMDRV 


00231 


SAVNUM 


03475 


SBRECO 


03476 


SEAFOR 


03412 


SEARCH 


02353 


SETIOX 


02015 


SEVEN 


03413 


SEVSEV 


03421 


SRCMOD 


02533 


SRCONT 


02441 


SRE2TS 


02503 


SRFBLK 


02461 


SRHERR 


02562 


SRTARN 


02412 


SWCMDL 


01354 


SWCMOO 


01343 


TALLY 


03477 


TAPONT 


03500 


TCF 


700402 


TEMl 


03501 


TEM2 


03502 


TEM3 


03503 


TEM4 


03504 


TEN 


03422 


TENTHO 


03423 


TERSEV 


03424 


TESTl 


02200 


TEST2 


02201 


TEST3 


02202 


TEST4 


02203 


TESTS 


02204 


THREE 


03425 


TLS 


700406 


TRECTR 


03505 


TRETHO 


03426 


TRTETH 


03427 


TSF 


700401 


TWOHUN 


03430 


TWVTHO 


03431 


TYALL 


03034 


TYBKW 


03100 


TYOATA 


03030 


TYOIR 


03056 


TYDRV 


03040 


TYFWD 


03104 


TYMOOE 


03070 



DTRE15 
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R 


TYMOVE 


02734 


TYPE 


02661 


TYRALL 


02765 


TYRDAT 


02754 


TYREAD 


03020 


TYSRCH 


02743 


TYTHOU 


03432 


TYWALL 


03007 


TYWDAT 


02776 


TYWRIT 


03024 


UNFUNC 


03506 


WATINT 


01701 


WC 


000030 


WDCERR 


01405 


WDCMOD 


01332 


WDINC 


01022 


WRITE1 


00721 


WRTlA 


00775 


WSTERN 


01042 


WTCNTR 


03507 


XORSUM 


01560 


.EOT 


00000 



RANDEX 



0TRF15 
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> R 


.EOT 


00 0P 


WC 


000033 


CA 


000031 


RA\<DEx 


00100 


RDSwC* 


00123 


MOFPpO 


00130 


MOFPRl 


00145 


ROTAS 


00211 


SAfORV 


00231 


RDDATA 


00253 


PEREAO 


00272 


REREDA 


003?5 


REWDRV 


00361 


PREGEN 


00400 


PATGEN 


00417 


GNPATR 


00444 


MCOMOB 


00467 


LOOP 


00501 


RANDl 


00516 


Rl 


00525 


RAND2 


00527 


R2 


(50536 


RAND3 


00540 


R3 


00547 


RANSEL 


00551 


EXIST 


00572 


MVDATA 


00607 


COOATa 


00626 


COLOOP 


00640 


COERRO 


00653 


COERRl 


00673 


WRITEl 


00721 


CORTlR 


00763 


WRTiA 


00775 


WDINC 


01022 


REWCK 


01034 


WSTERR 


01042 


RDSEO 


01070 


RDBUFl 


01117 


NDOFRD 


01214 


ROCMOD 


01221 


ROCERR 


01314 


WOCMOO 


01332 


SWCMOD 


01343 


SWCMDL 


01354 


HOCERR 


01405 


RALLTS 


01431 


RAOCHK 


01540 


RASERR 


01556 


XORSUM 


01560 


ERRCKS 


01602 


CKSTYP 


01647 


CALCTY 


01653 


ERRRAR 


01657 


WATINT 


01701 
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1 RANOEX 


RESET!) 


017?1 


IREcn 


01735 


NDTSKP 


01762 


PTSTND 


01766 


PTSTNS 


02005 


SETIOX 


02015 


PITBL 


02025 


PIRTBL 


02045 


IS2TST 


02046 


ROUTS 


02070 


R0T2TS 


02106 


SADTST 


02124 


JMSTST 


02134 


JMPRET 


02156 


TEST1 


02200 


TEST2 


02201 


TEST3 


02202 


TEST4 


02203 


TEST5 


02204 


JMSCON 


02205 


RETJMP 


02206 


REPOSI 


02207 


RSFDRV 


02225 


RSFDRl 


02242 


CHNGDR 


02244 


GNPTRS 


02263 


PNTRS 


02303 


MOVER 


02336 


SEARCH 


02353 


SRTARN 


02412 


SRCONT 


02441 


SRFBLK 


02461 


SREETS 


02503 


SRCMOD 


02533 


SRHERR 


02562 


MSPRNT 


02633 


TYPE 


02661 


OPRINT 


02670 


CRLF 


02714 


ERSTP 


02726 


TYMOVE 


02734 


TYSRCH 


02743 


TYRDAT 


02754 


TYRALL 


02765 


TYWDAT 


02776 


TYWALL 


03007 


TYREAO 


03020 


TYWRIT 


03024 


TYDATA 


03030 


TYALL 


03034 


TYDRV 


03040 


TYDIR 


03056 


TYKODE 


03070 


TYBKW 


03100 


TYFWD 


03104 



0TRE15 
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RANDEX 


MESS1 


03110 


MESS2 


03126 


MESS3 


03133 


MESS4 


03141 


MESS5 


03145 


MESS6 


03154 


MESS7 


03160 


MESS8 


03164 


MESS9 


03174 


MESSlfl 


03203 


MESS11 


03206 


MESS12 


03213 


MESS13 


03221 


MESS14 


03227 


MESS15 


03233 


MESS16 


03240 


MESS17 


03242 


MESS18 


03252 


MESS19 


03261 


MESS20 


03271 


MESS21 


03300 


MESS22 


&3310 


MESS23 


03314 


MESS24 


03320 


MESS25 


03323 


MESS26 


03327 


MESS27 


03332 


MESS28 


03335 


MESS29 


03343 


MESS30 


03350 


MESS31 


03355 


ASCII 


03363 


RF1L0C 


03364 


BF2LOC 


03365 


OIRTBL 


03366 


FIFTHO 


03367 


FIVTHO 


03370 


FTYTHO 


03371 


IOCON 


03372 


INOEP 


03373 


LSTTBL 


03374 


MASK 


03375 


MBLOCK 


03376 


MOVBAK 


03377 


MUCH0 


03400 


ONF 


03401 


ONFTHO 


03402 


P0ST8L 


03403 


RAOLOC 


03404 


RBFLOC 


03405 


RBUFND 


03406 


R8UFST 


03407 


REWIND 


03410 


RUBOUT 


03411 


SEAFOR 


03412 
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RANDEX 


SEVEN 


03413 


SEVSEV 


03421 


TEN 


03422 


TENTHO 


03423 


TERSEV 


03424 


THREE 


03425 


TRETHO 


03426 


TRTETH 


03427 


TWOHU&J 


03430 


TWVTHO 


03431 


TYTHOU 


03432 


ACCUM 


03433 


BLKFLG 


03434 


BLKFND 


03435 


CORIVE 


03436 


CKSUMR 


03437 


CNTR 


03440 


CNTR1 


03441 


COCNTR 


03442 


COMBIT 


03443 


DATASM 


03444 


DIRECT 


03445 


OIRFLG 


03446 


FRSWAT 


03447 


FWDCHK 


03450 


LSTBLK 


03451 


LSTDRV 


03452 


MSBITS 


03453 


NUMBER 


03454 


NUMBLK 


03455 


OBVERS 


03456 


PASFLG 


03457 


PICNTR 


03460 


PIDEXi 


03461 


PI0EX2 


03462 


PNTR1 


03463 


PNTR2 


03464 


PNTR3 


03465 


PNTR4 


03466 


POSITN 


03467 


PREBLK 


03470 


RAEFLG 


03471 


RECORD 


03472 


REVCHK 


03473 


RSOFLG 


03474 


SAVNUM 


03475 


SBRECD 


03476 


TALLY 


03477 


TAPONT 


03500 


TEMi 


03501 


TEH2 


03502 


TEM3 


03503 


TEM4 


03504 


TRECTR 


03505 


UNFUNC 


03506 



0TRE15 



PAGE 46 



RANOEX 



DTRE15 



WTCNTR 

RANBFP 

BUFFRS 

CLSF 

CLOF 

CLON 

RSF 

RCF 

RSA 

RRB 

RSS 

PSF 

PCF 

PSA 

PSB 

KSF 

KRB 

TSF 

TCF 

TLS 

EEM 

LEM 



03507 
001000 
004400 
700001 
700004 
700044 
700101 
700102 
700104 
700112 
700144 
700201 
700202 
700204 
700244 
700301 
700312 
700401 
700402 
700406 
707702 
707704 



MAINDEC EVALUATION REQUEST 

After sufficient familiarization with the operation and documentation of this MAINDEC, 
please indicate your assessment of the following areas and return this form to Digital Equipment Cor- 
poration. 

IDENTIFICATION : MAINDEC NO Program Title 



USAGE : Used by: Field Service Q Production f~] Other [ | 

Frequency of Usage: Daily PI Weekly [ | Monthly [ | 
SUGGESTIONS FOR IMPROVEMENT 

1. Are the program loading and operating instructions: clear?! I, incomplete?! I, difficult to 
follow ?Q '— ' *— 

2. Do the error reports and program documentation provide sufficient diagnostic information. 

in all cases?r~J, in most cases ? | |, in very few cases ?| I. Suggestions for improvement: 



3. Is the program effective in isolating malfunctions: in all cases ?Q, in most cases ?| [, 

in very few cases?) |. Would additional Scope loops or Switch Register control be helpful ?. 
Suggestions for improvement: 



4. Does the program ever fail to detect malfunctions exposed by other software?. 
Were Margins used? Please describe malfunction in detail: 



5. Does the program ever report non-existant malfunctions?. 



Please indicate erroneous report and any pertinent operating conditions: 

6. Does this MAINDEC ever expose malfunctions in the Central Processor or other peripheral units not 

detected by the appropriate MAINDEC ? 

Please describe malfunction and MAINDEC(S) used: 

7. Does the document provide a general understanding of the functional programming requirements of 



the system? Good , FairPJ, Nonef~] . Would a general description of programming re- 
quirements increasethe effectiveness of thisMAINDEC?- 



Remarks: 



Fold Here 



■ Do Not Tear - Fold Here and Staple ■ 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



FIRST CLASS 

PERMIT NO. 33 

MAYNARD, MASS. 



Postage will be paid by: 




Digital Equipment Corporation 
Diagnostic Programming Group 
146 Main Street, Building 12 
Maynard, Massachusetts 01754 



